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Important Information for Cassette 
Users 

Note: Model III basic on the TRS-80 Model III is essentially the same as Level 
II basic on the TRS-80 Model I. All of the following references to Level II 
basic also refer to Model III basic. The only difference is that a higher baud 
rate for saving onto tape can be set if you have a Model III with Model III basic 
(high = 1500 and low = 500). Both low and high baud rate use the same vol- 
ume setting on the Model III. 

Using Your Cassette Deck 

Many factors affect the performance of a cassette system. The most significant 
one is volume. Too low a volume may cause some of the information to be 
missed. Too high a volume may cause distortion and result in the transfer of 
background noise as valid information. 

Four different cassette models have been supplied with the TRS-80 system — 
the CTR-40, CTR-41, CTR-80, and CTR-80A. Each model has its own loading 
characteristics. The table below gives the suggested volume ranges for each of 
the CTR models. 

Notice that the volume ranges for Level I and Level II are different. This is 
because the Level II data transfer rate is faster (500 baud vs. 250 baud). Also, 
notice that for the TRS-80 Model I, pre-recorded Radio Shack programs need a 
slightly higher volume setting than that required by your own csAVEd tapes. 
This is because the pre-recorded tapes are produced with high-speed audio 
equipment at a slightly lower volume level than the csave process provides. 
The Model III records at a lower volume than the pre-recorded tapes are 
recorded at, so the volume setting for user-generated tapes is higher than for 
pre-programmed tapes. You will need to take this into account when CLOADing 
Level II programs into a Model HI. 
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CTR-40 
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Recommended Volume Settings for Radio Shack Cassette Decks 
When Used with the TRS-80 Model I 
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Recommended Volume Settings for Radio Shack Cassette Decks 
When Used with TRS-80 Model III 

(With the CTR-40, CTR-80, and CTR-80A, turn the control to the left to 
increase volume. With the CTR-41, turn the control to the right.) 

When information is being loaded from the cassette tape, two asterisks will 
appear on the screen, The one on the right will flash on or off as the program is 
read in. If the asterisks do not appear, or the one on the right does not flash, 
then the volume setting is probably too low. Increase the volume and try again. 
If you have a Model III this may be an indication that the tape's baud rate is dif- 
ferent than the Computer's baud rate. (All Radio Shack Model I Level II pre- 
recorded cassettes are recorded at 500 baud rate, so Low baud rate must be 
selected when they are loaded on the Model III.) Try resetting the baud rate 
from high to low or vice versa (See your Operation Manual). 

Use the reset button to stop the cassette and return control to you if loading 
problems occur. 

Radio Shack programs are recorded at least twice on each tape. Following this 
practice when you record programs on tape will give you a back-up if one does 
not load properly or if it becomes damaged. 

Important Note: The CTR-41 requires that you keep the supplied "dummy 
plug" in the MIC jack at all times. However, the other models should never be 
used with the "dummy plug." 

Level I 

Sometimes you will get an error message during an attempted cload. This 
means that some information was lost or garbled. Adjust the volume level 
slightly and try again. 

Level H (Also Model ffl BASIC) 

In case of an error message, proceed as above. In Level II, there is also a rare 
case in which the program is not loaded correctly even though no error message 
is generated. So, after CLOADing a program, be sure to list it. If some data was 
garbled, then at some point in the listing the display will be filled with meaning- 
less words and characters. Adjust the volume and try again. 



Hints and Tips 



Computer tapes should be stored in a relatively dust-free area (a cassette case is 
recommended) and protected from high temperatures. Magnetic and electrical 
fields may alter recorded information, so avoid placing the tape near them 



(i.e. household appliances, power sources such as transformers and television 
sets, etc.). 

The cassette deck supplied with the TRS-80 is very compatible with the system 
and will perform its duties with great success. To keep the cassette deck in top 
condition and thus minimize your problems, you should periodically perform 
some routine maintenance on it. Dirty heads can cause as much as a 50% loss of 
volume. Also, heads become magnetized with use and may cause distortion. We 
recommend that you clean the head, capstan, and pinch roller after every four 
hours of operation. Heads on new recorders should always be cleaned before 
use. 

Note: Cassette cleaning and demagnetizing accessories are available from your 
local Radio Shack store. 
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IMPORTANT NOTICE 

ALL RADIO SHACK COMPUTER PROGRAMS ARE LICENSED ON AN 
"AS IS" BASIS WITHOUT WARRANTY. 

Radio Shack shall have no liability or responsibility to customer or any 
other person or entity with respect to any liability, loss or damage caused or 
alleged to be caused directly or indirectly by computer equipment or pro- 
grams sold by Radio Shack, including but not limited to any interruption of 
service, loss of business or anticipatory profits or consequential damages 
resulting from the use or operation of such computer or computer programs. 
NOTE: Good data processing procedure dictates that the user test the 
program, run and test sample sets of data, and run the system in 
parallel with the system previously in use for a period of time 
adequate to insure that results of operation of the computer or 
program are satisfactory. 



RADIO SHACK SOFTWARE LICENSE 

A. Radio Shack grants to CUSTOMER a non-exclusive, paid up license 
to use on CUSTOMER'S computer the Radio Shack computer software 
received. Title to the media on which the software is recorded (cassette 
and/ or disk) or stored (ROM) is transferred to the CUSTOMER, but not title 
to the software. 

B. In consideration for this license, CUSTOMER shall not reproduce 
copies of Radio Shack software except to reproduce the number of copies 
required for use on CUSTOMER'S computer (if the software allows a back- 
up copy to be made), and shall include Radio Shack's copyright notice on 
all copies of software reproduced in whole or in part. 

C. CUSTOMER may resell Radio Shack's system and applications soft- 
ware (modified or not, in whole or in part), provided CUSTOMER has 
purchased one copy of the software for each one resold. The provisions of 
this software License (paragraphs A, B, and C) shall also be applicable to 
third parties purchasing such software from CUSTOMER. 
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Introduction 

Advanced Statistical Analysis (ASA) is a user oriented data analysis 
system designed for use on the Radio Shack TRS-80 Micro Computer. 
The system is ideally suited for applications in business, education, 
medicine, and government administration. The programs can be run 
with little formal knowledge of data analysis techniques and no 
knowledge of computer programming. Each program in the system 
was written to interact with the user and to guide him/her in 
conducting statistical analyses. 

Description of the System 

The Advanced Statistical Analysis system consists of 1 3 computer 
programs stored on cassette tapes and a comprehensive manual which 
takes the user through each program step-by-step. The system 
includes ten programs for describing data sets and conducting 
statistical data analyses; two utility programs for preparing, updating, 
and listing data files stored on tape or disk; and a program to aid in 
selecting data samples. Programs supplied with the Advanced 
Statistical Analysis system are listed below. 

Tape Data Files Analysis of Variance 

Disk Data Files T-Test For Matched Pairs 

Random Sample Correlation & Linear Regression 

Descriptive Statistics Multiple Linear Regression 

Histogram Time Series Analysis (2 Programs) 

Frequency Distribution Chi Square Analysis 

Advanced Statistical Analysis was designed to run with Radio Shack 
Level II BASIC or DISK BASIC. The amount of data which can be 
analyzed usually depends upon how much memory (RAM) is 
installed in the TRS-80. 

Data and Data Files 

All of the ASA data analysis programs (except CHI SQUARE 
ANALYSIS) allow data to be entered from the TRS-80 keyboard, 
or from a data file stored on cassette tape or diskette (under DISK 
BASIC). The data input device is selected by the user at the 
beginning of each program. 

Data files are prepared, updated and listed using two file utility 
programs (TAPE DATA FILES and DISK DATA FILES). Several 
different "types" of data are used by ASA programs. CORRELA- 
TION & LINEAR REGRESSION, T-TEST FOR MATCHED PAIRS, 
and the two TIME SERIES ANALYSIS programs require a set of 
data pairs (variable X, variable Y) as input. Files of this type are 
referred to as "paired" data files. ANALYSIS OF VARIANCE 
requires a file containing a set of measurements for each group in 
the design (ANOVA type). MULTIPLE LINEAR REGRESSION 
requires a data record for each subject. 



Each record in a linear regression type file contains a measurement 
on the dependent variable, plus measurements on from one to five 
independent variables. Data files prepared for DESCRIPTIVE 
STATISTICS, HISTOGRAM or FREQUENCY DISTRIBUTION 
contain a set of measurements on one variable and are called single 
type data files. However, these last three programs can accept any 
type ASA data file as input. The ASA data file structure is described 
in Appendix A. 



The different types of data files are handled automatically by the file 
utility programs. In addition, each ASA data analysis program will 
accept only the correct type of data file. An error message is 
displayed v and the program stops when a data file of the wrong type 
is encountered. 

All cassette tape data files are read from, and written to, recorder 
#-1. If you are using the TRS-80 Expansion Interface and dual 
cassette recorders, be sure to insert your tapes into the correct unit. 
Disk data files are not allocated to a particular disk drive; therefore, 
ASA programs can be run with any number of drives connected. 
However, when you prepare or update a disk data file on a multi- 
drive system, you will have to read the file directories to find out 
which diskette contains the new file. 

Some Words of Caution 

Although many safeguards are built into the Advanced Statistical 
Analysis system, users are urged to become familiar with the 
programs, test them using sample sets of data, and follow the 
displayed instructions carefully. When in doubt, consult this manual. 

Simple errors such as entering incorrect data, using the wrong data 
file, or providing the computer with the wrong code (when it asks for 
an instruction) can result in output that is erroneous. Computer 
programmers refer to this phenomena as "Garbage in — Garbage 
out". 

The statistical procedures used in all of the ASA programs (except 
MULTIPLE LINEAR REGRESSION and TIME SERIES 
ANALYSIS) require that data values be actual measurements. That 
is, the data values must not be codes referring to categories such as 1 
for male, 2 for female, 10 for New York, 6 for California, nor 
rankings such as 1 for first or largest, etc. Examples of valid data 
include temperature, age, test or attitude scores, elapsed time, cost, 
length, weight, miles-per-gallon, and numbers of people or objects, 
etc. (statisticians call these interval scale measures). Data pairs for 



TIME SERIES ANALYSIS consist of a code representing a time 
interval (year, quarter, month, week, or day), followed by an interval 
scale measurement on the Y variable. MULTIPLE LINEAR 
REGRESSION allows coded independent variables, but the 
dependent variable must be an interval scale measurement. 

In order to allow for "end of data" and "end of group" signals, all 
data values are input in string form (i.e., as alphanumeric variables) 
then converted to numerical equivalents. The following 
considerations apply to this method of data input. 

• The Computer does not distinguish between numbers and 
other characters. If you accidentally type a character (e.g., 
$ instead of 4) the computer will conver t the ch aracter to a 
number and store it. HINT: Don't press B3I1D until you 
verify what you have typed. 

• The TAPE DATA FILES program stores all data values in 
memory as strings. Unlike numerical values, which take a 
predetermined amount of memory for storage (e.g., 2 bytes 
for integers), the amount of memory needed to store a string 
depends on how many characters the string contains. The 
data set size limitations (stated in the TAPE DATA FILES 
chapter) assumes an average data value length of 10 
characters. You will be able to prepare larger data files by 
representing very large or very small data values in 
exponential form (e.g., .000000000012 as 1.2E-11, 
5443200000000000 as 5.4432E15). 



As with any computer system, very large (positive or negative) 
values and values containing many decimal places are subject to 
certain errors. The number of significant figures retained by the ASA 
programs varies from 7 to 16. Additionally, repetitive arithmetic 
operations may magnify rounding errors to a significant degree. In 
most cases, since the data collected for use in statistical analysis 
procedures usually contain a fair amount of measurement error, the 
rounding errors above should be negligible. 

Users who feel uncomfortable using one or more of the ASA data 
analysis procedures are urged to consult a textbook on statistics to 
be sure they are applying the procedure properly and interpreting 
its results accurately. Elementary statistics textbooks in most fields 
cover, to some degree, the statistical procedures in the Advanced 
Statistical Analysis system. We've provided a selected list of books 
in Appendix C; you will find some of these in most public libraries 
or college libraries. 



Loading the ASA Programs 

The Advanced Statistical Analysis computer programs are supplied 
on cassette tapes ready for loading into your TRS-80. If you are 
using Level II BASIC, simply turn on your Computer, insert the 
program tape into the cassette recorder and load the program 
according to the instructions in your Level II Manual. 

If you are using DISK BASIC, the programs must be loaded with the 
machine in DISK BASIC command mode (not in DOS). Be sure to 
disable the real-time clock before attempting to load the program. 
This is done by typing CMD"T". To save time, you may want to 
store the program on disk (explained in your TRSDOS/DISK BASIC 
Manual). 



NOTE: To aid you in using this Manual with the programs, 
we've either used special type style to show the Computer 
or program's responses or a direct print-out for all Video 
Display examples. Where you must provide some input, 
we've printed the commands/letters, etc. in a gray area. 
Your eyes will quickly adjust to look for these key 
responses. 



Printing Program Results 

The results of all ASA data analysis programs, and file listings from 
the file utility programs, can be printed on the TRS-80 Line Printer. 
For many of the programs, the output is automatically formatted at 
ZVi" x 1 1" — a line of stars marks the cutting line. After typing a 
page number on the trimmed printout, copies can be made on a 
duplicating machine for inclusion in your reports. The printer output 
is formatted for a carriage width of approximately 60 characters. The 
print density control, located on the rear apron of the TRS-80 Line 
Printer, should be set slightly above minimum print density (i.e., 
almost fully counter-clockwise). Printing at a higher density will 
distort histograms and data plots (graphs) by producing dispropor- 
tionate X and Y axes. Appendix B contains sample printouts from 
ASA programs. 

Users of the TRS-80 Quick Printer may also use the print feature in 
ASA programs. The program will automatically set the print width to 
80 characters to accommodate the output format. 
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Tape Data Files 

Description of the Program 

Data may be stored on cassette tape for use as input in ASA data 
analysis programs. TAPE DATA FILES provides all the necessary file 
handling functions relative to data files stored on cassette tape. 



Features 



• Handles data files for all ASA data analysis programs (single, 
paired, ANOVA, and multiple regression type data) 

• Preparation of new data files 

• Automatically assigns file type code 

• Assigns user-supplied file name 



• 



Correction and updating of any type ASA data file 

Copies data files 

Lists data files 

Optional file listing on line printer 



Limitations 



• 



16K maximum data set sizes (approximate) 
800 single or ANOVA data elements 
400 paired data elements (pairs) 
1 00 multiple regression elements (subjects) 

32K maximum data set sizes (approximate) 
2000 single or ANOVA data elements 
1000 paired data elements (pairs) 
250 multiple regression elements (subjects) 

A maximum of 1 50 data elements, of any type, can be 
removed during any single run of the program 
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Loading the Tape Data Files Program 



Unlike other ASA programs which can be run under LEVEL II 
BASIC or DISK BASIC, TAPE DATA FILES must be loaded and run 
only under LEVEL II BASIC on 16K TRS-80 Microcomputers. This 
should be no handicap, since DISK BASIC features are not used 
within the program. To load the program into a TRS-80 without an 
Expansion Interface, simply use the CLOAD command. If an 
Expansion Interface is c onnected , turn on the power to the CPU 
while holding down the l:l;l=r,ii:« key. You are now operating in 
LEVEL II BASIC with the Expansion Interface connected and can 
load the program using the CLOAD command. 

NOTE: Users of TRS-80 Computers having 32K or more 

memory may load and run TAPE DATA FILES under either 
Level II BASIC or DISK BASIC (after disabling the real-time 
clock). 

Preparing a New Data File 

1 . Load the program into the TRS-80. Type RUN and press JU3il 
The Computer will respond with 

THIS PROGRAM IS BEING RUN TO: 
(P)REPRRE fi NEW DATA FILE 
(U)PDATE AN OLD DATA FILE 
(L)IST AN OLD DATA FILE ? . 

2. Enter a P. The Computer will ask 



FOR WHICH PROGRAM WILL THE DATA BE PREPARED: 

i = DESCRIP. STAT. / FREQ. DISTR. / HISTOGRAM 

2 = CORR. & LIN. REGR. / MATCHED PRS. / TIME SERIES 

3 = ANALYSIS OF VARIANCE 

4 = MULTIPLE REGRESSION ? _ 

3. Enter the number corresponding to the program for which you 
are preparing the data; the DESCRIPTIVE STATISTICS, 
FREQUENCY DISTRIBUTION, and HISTOGRAM programs 
will accept data files prepared for any of the ASA analysis 
programs. 
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If you enter a 1 , the following message will appear on the 
screen: 

BEGIN ENTERING VOUR DATA ELEMENTS. 
SIGNAL END OF DATA WITH @. 



Enter your first data value, after the question mark. Another 
question mark will appear. Continue entering your data. 
After the last data value has been entered, type and enter an 
@. The Computer will display the number of data values 
input as follows: 

NEW DATA COUNT = N DATA ELEMENTS. 



(Now skip to instruction #4) 

• If you enter a 2, the following message will appear on the 
screen : 

BEGIN ENTERING VOUR DATA PAIRS <K,V>. 
SIGNAL END OF DATA WITH @, @. 



Enter your first data pair, after the question mark, separating 
the X and Y values with a comma. Another question mark 
will appear. Continue entering your data. After the last data 
pair has been entered, type and enter ®,® (two "at" symbols, 
separated by a comma). The computer will display the 
number of data pairs input as follows: 

NEW DATA COUNT - N DATA ELEMENTS. 



NOTE: Consult the chapters on TIME SERIES ANALYSIS 
before preparing data for those programs. Special instructions 
are contained in the sections titled INSTRUCTIONS FOR 
INPUTTING DATA. 

(Now skip to instruction #4) 

• If you enter a 3 the Computer will ask, 
HOW MANY GROUPS <2 TO 5 ONLY) ?_ 
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Enter the number of groups for which analysis of variance 
data will be prepared. The following message will appear on 
the screen : 

BEGIN ENTERING THE DATA FOR GROUP # 1. 
SIGNAL END OF DATfi WITH @. 



Enter the first data value for Group 1, after the question 
mark. Another question mark will appear. Continue entering 
data for Group 1 . After the last data value for that group has 
been entered, type and enter an © ("at" symbol). The 
Computer will then request data for Group 2. 

NOTE: Remember which of your groups is Group 1 , 
which is Group 2, etc. This information will be needed 
when you run the ANALYSIS OF VARIANCE, 
DESCRIPTIVE STATISTICS, HISTOGRAM, or 
FREQUENCY DISTRIBUTION programs on the data. 

After all the data have been entered the Computer will 
display the total number of data elements entered as follows: 

NEW DATA COUNT = N DATA ELEMENTS. 
CALL GROUPS COMBINED) 

(Now skip to instruction #4) 

• If you enter a 4, the Computer will ask 

HOW MANY INDEPENDENT VARIABLES <1 TO 5 ONLY) ?_ 

NOTE: The number of independent variables must be the 
same for each subject in the study. If values for one or 
more independent variables are missing for any subject, 
that subject must be excluded from the study. 

Enter the number of independent variables for which data 
will be entered. The following message will appear on the 
screen: 

BEGIN ENTERING YOUR DATA. 

SIGNAL END OF DATA BY ENTERING @ FOR THE DV VALUE. 

SUBJECT 1 : 
DV ? _ 
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Enter the value on the dependent variable for Subject #1 , 
after the question mark. The Computer will then display 

IV 1 ? _ 

Enter the value on the first independent variable for Subject 
#1. Data will be requested on each successive independent 
variable for the first subject, then the Computer will request 
data values for Subject #2. After the data for all subjects 
have been entered, type and enter an @ ("at" symbol) instead 
of a DV data value. 

NOTE: Remember which independent variable has been 
assigned the codes IV1 , IV2, etc. This information will 
be necessary when running MULTIPLE LINEAR 
REGRESSION, DESCRIPTIVE STATISTICS, 
FREQUENCY DISTRIBUTION, or HISTOGRAM on 
the data. 

The number of subjects for which data were entered will then 
be displayed as follows: 

NEW DATA COUNT = N DATA ELEMENTS. 

4. The Computer will ask 

NAME FOR THE NEW DATA FILE ?_ 

Enter an alphanumeric name which describes the data file being 
prepared. Try to keep the name short (abbreviate if necessary). 
Do not use commas in the file name. 

5. The message 

INSERT A BLANK TAPE - SET TO ■•RECORD" - HIT ENTER ?_ 

will be displayed. Insert a tape into the cassette recorder (into 
recorder #-1 if you are using a dual cassette system) and press 
la^ll*;! Don't forget to "cue" tapes which have plastic 
leaders! The data file will be recorded on tape while the 
Computer displays 

WRITING DATA TO TAPE. 
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Updating an Old Data File 



1 . Load the program into the TRS-80. Type run. and press B£|Hil • 
The Computer will reply 

THIS PROGRAM IS BEING RUN TO: 
<P PREPARE R NEW DflTfl FILE 
(U)PDRTE AN OLD DflTfl FILE 
(L)IST AN OLD DATA FILE ? - 

2. Enter a a. The Computer will ask 

Flip WHICH PROGRAM WERE THE DATA PREPARED: 

1 = DE c .r:RIP. STRT. / FREQ. DISTR. / HISTOGRAM 

2 = r:riRR & LIN. REGR. / MATCHED PRS. / TIME SERIES 

3 = ANAL VS IS OF VARIANCE 

4 = MULTIPLE REGRESSION ? - 

3. Enter the number corresponding to the program for which the 
old data file was prepared. The Computer will ask 

HOW MANV DATA ELEMENTS ARE TO BE REMOVED ? _ 

If you will only be adding elements to the old file, or if you are 
making a copy of the file, enter a and skip to instruction #4. 

NOTE: If you are updating a data file prepared for 

DESCRIPTIVE STATISTICS, FREQUENCY DISTRI- 
BUTION, or HISTOGRAM, the file is a single type data 
file, and each data value is a data element. If the data were 
prepared for CORRELATION & LINEAR REGRESSION, 
T-TEST FOR MATCHED PAIRS, or TIME SERIES 
ANALYSIS, the file is a paired-type data file, and each 
data pair (X, Y) is a data element. Data files prepared for 
ANALYSIS OF VARIANCE consist of groups of data 
values and each data group is separated by the symbol @. 
In these files, called ANOVA files, each value (including 
the group separating symbol) is considered a data element. 
In multiple regression data files, each subject is a data 
element. That is, each data element consists of the DV 
value, plus the values on each IV for one subject. 

Enter the number of data elements that you wish to remove 
from the old file. The Computer will display 

LIST THE DATA ELEMENTS TO BE REMOVED. 
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You must know that exact element number of each data element 
that is to be rem oved. If you are not sure, terminate the 
program (press GEES) and list the data file to obtain the data 
element number(s). Enter one element number after each question 
mark. 

4. The Computer will display the message 

INSERT DATA TAPE - SET TO 'PLAY' "HIT ENTER ? _ 

Load the data tape into the cassette recorder (into recorder #-1 
if you are using a dual cassette system). Be sure the old data 
tape is re N wound, set the recorder controls to Play, and press 
WhiM . The Computer will begin reading the data and the 
name of the data file will be displayed. Check to be sure you 
have loaded the correct data tape. The Computer will display 
the number of data elements read from the tape. For 
ANALYSIS OF VARIANCE FILES the number of actual data 
values (excluding group separation symbols) will be displayed 
for each group. Next the number of data elements which were 
removed will be displayed followed by the new data element 
count (# elements read - # elements removed). 

5. The Computer will ask 

DO VOU WANT TO ADD ANY HEW DATA ELEMENTS - (V)ES OR <N>0 

If you do not want to add new data elements to the file (that 
is, you are copying a data file or just removing elements) 
enter an N and skip to instruction #6. 

If you enter a y, Ihe Computer will decide what type of data 
file is being updated and will request the new data elements 
as follows: 

• For single type data (files prepared for DESCRIPTIVE 
STATISTICS, FREQUENCY DISTRIBUTION, or 
HISTOGRAM) the Computer will display 

BEGIN ENTERING YOUR NEW DATA ELEMENTS. 
SIGNAL END OF NEW DATA WITH i?. 



Enter a new data value after the question mark. Another 
question mark will appear. Continue entering data. After the 
last new data value has been entered, type and enter an ® 
("at" symbol). 

(Skip to instruction #6) 
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For paired type data (files prepared for CORRELATION & 
LINEAR REGRESSION, T-TEST FOR MATCHED PAIRS, 
or TIME SERIES ANALYSIS) the Computer will display 

BEGIN ENTERING YOUR NEW DflTf! PR IRS <X, V). 
SIGNAL END OF NEN DATA WITH ©, @. 



Enter your first new data pair, after the question mark, 
separating the X and Y values with a comma. Another 
question mark will appear. Continue entering your new data. 
After the last new data pair has been entered, type and 
enter @,@ (two "at" symbols, separated by a comma). 



(Skip to instruction #6) 



For ANOVA type data (files prepared for ANALYSIS OF 
VARIANCE), the Computer will ask 

NUMBER OF NEW DATA ELEMENTS FOR GROUP # 1 ?_ 

If no new data values will be added to Group I, the Computer 
will ask for the number of new elements for the second group. 

If data elements will be added to Group 1 , the Computer will 
display 

BEGIN ENTERING THE NEW DflTfi FOR GROUP #1 



Enter the first new data value for Group 1 , after the question 
mark. Another question mark will appear. Continue entering 
new data values for the first group. After all the new data 
elements for Group 1 have been entered, the computer will 
display the new data count for that group. The entire new 
data sequence above will be repeated for the number of 
groups found on the old data file, then the Computer will 
display 

HIT ENTER TO CONTINUE ?_ 

Press nm»;i . (Now skip to instruction #6.) 
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• For multiple regression type data (files prepared for 
MULTIPLE LINEAR REGRESSION) the Computer will 
display 

BEGIN ENTERING YOUR HEW DATA. 

SIGNAL END OF NEW DATA BY ENTERING @ FOR THE DV VALUE. 
SUBJECT 1 : 
DV ?_ 

The subject number will be the number of subjects 
encountered on the old data file, minus any that were 
removed, plus 1 (that is, the new data count +1). Enter the 
value on the dependent variable for the first new subject. 
The Computer will display 

IV 1 ?_ 

Enter the value on the first independent variable for the first 
new subject. Data will be requested on each successive 
independent variable for the first subject (the number of IVs 
will be between 1 and 5 and will agree with the number of 
IVs per subject found on the old data file), then the 
Computer will request data for the second new subject. After 
the data for all new subjects have been entered, type and 
enter an @ ("at" symbol) instead of a data value. 

NOTE: The number of independent variables must be the 
same for each subject in the study. If values for one or 
more independent variables are missing for any subject, 
that subject must be excluded from the study. 

6. The Computer will display the new data element count (data 
elements read from the old file, minus data elements removed, 
plus data elements added) and ask 

NAME FOR THE NEW DATA FILE ?_ 

Enter an alphanumeric name which describes the data file being 
prepared. Try to keep the name short (abbreviate if necessary). 
Do not use commas in the file name. 

7. The message 

INSERT A BLANK TAPE - SET TO -'RECORD-' - HIT ENTER ?. 

will be displayed. Insert a tape into the cassette recorder (Into 
recorder #-1 if you are using a dual cassette system) and press 
faim^ni . Don't forget to "cue" tapes which have plastic 
leaders! The data file will be recorded on tape while the 
Computer displays 

WRITING DATA TO TAPE. 
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Listing a Data File 



1 . Load the program into the TRS-80. Type RUN and press H2E3- 
The Computer will reply 

THIS PROGRAM IS BEING RUN TO: 
<P>REPARE H NEW DfiTfl FILE 
(lOPDRTE AN OLD DfiTfl FILE 
CDIST RN OLD DATA FILE ?_ 

2. Enter an L. The Computer will ask, 

LIST DATA FILE ON LINE PRINTER - <V)ES OR (N)0 ?_ 

3. If you have a Line Printer and desire a permanent copy of the 
file listing,' enter a Y, otherwise enter an N. 

4. The Computer will display 

INSERT DATA TAPE - SET TO 'PLflV - HIT ENTER ?_ 

Insert the data tape into the tape recorder (use recorder #-1 if 
you are using a dual cassette system). Be sure the dat a tape is 
rewound, set the recorder controls to play, and press l*i?iia:i . 
The Computer will begin reading the data, and the name of the 
data file will be displayed. Next, the Computer will display the 
type of data file being read. 

NOTE: Single, paired, ANOVA, and multiple regression file 
types are described in a note under instruction #3 for 
UPDATING AN OLD DATA FILE. 

The number of data elements read from the data file will be 
displayed, followed by the message 

HIT ENTER TO BEGIN LISTING ?_ 

or 

TURN ON VOUR PRINTER - HIT ENTER TO BEGIN LISTING ?_ 

5. Turn on your Printer, if applicable, and press l*JM*:l . The 
data file will begin listing on the Video Screen (and Printer). 
The listing may be stopped (for viewing) by simply pressing 
®. Pressing @ again will restart the listing. The listing (and 
printing) can be halted completely by pressing i:i;iaii:< for a 
few seconds. After the entire data file has been listed, the 
program will ask 

<L)IST DATA AGAIN OR <E>ND PROGRAM ?_ 

Enter an :1 or an E as appropriate. 
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Sample Rill! (Updating a multiple regression tape file) 






imi 
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Messages and Special Considerations 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a tape file. The tape may contain an ASA data file of 
the wrong type (in which case the name of the incorrect file will be 
displayed), a data file not prepared for ASA programs, or a computer 
program rather than a data file. 

If the number of data elements removed from the file by the 
Computer is less than the number you expected to be removed, you 
may have (1) entered a data value which did not exist or (2) entered 
the same da ta eleme nt more than once. You may cancel the update 
by pressing l:i;l*in or allow the program to run to completion, then 
list the updated file and check it for mistakes. 
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Disk Data Files 

Description of the Program 

Data may be stored on Minidisk for use as input in any of the ASA 
data analysis programs. DISK DATA FILES provides all the 
necessary file handling functions relative to data files stored on disk. 

Features 

• Handles data files for all ASA data analysis programs (single, 
paired, ANOVA, and multiple regression type data) 

• Preparation of new data files 

• Automatically assigns file type code 

• Correction and updating of any type ASA data file 

• Copies data files 

• Lists data files 

• Optional file listing on Line Printer 

Limitations 

• Maximum data set size is limited only by the space available 
on TRS-80 Mini Disk drives. 

• Disk space required for updating a data file is roughly twice 
that required for preparation of the original file, because a 
temporary "scratch" file must be created. This file is 
automatically removed from disk when the update is 
complete. 

• A maximum of 1 50 data elements, of any type, can be 
removed during a single run of the program. 

Loading the Disk Data Files Program 

Unlike other ASA programs which can be run under LEVEL II 
BASIC or DISK BASIC, DISK DATA FILES must be loaded and run 
only under DISK BASIC. To load the program, type CMD'T", then 
use the CLOAD command. 
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Preparing a New Data File 



1 . Load th e program into the TRS-80. Type RUN and press 
BZEEHI • The Computer will reply 

THIS PROGRAM IS BEING RUN TO: 
(P)REPflRE R NEW DATA FILE 
(U)PDflTE AN OLD DATA FILE 
<L)IST AN OLD DATA FILE ? - 

2. Enter a P. The Computer will ask 

WHAT WILL BE THE NAME OF THE NEW DATA FILE ? _ 

3. Enter a file name which describes the data. The file name must 
conform to the file naming conventions, described in the 
TRS-80 TRSDOS/DISK BASIC Manual. The Computer will 
then ask 

PTiR WHIHH PROGRAM WILL THE DATA BE PREPARED: 

1 = DE C .CRIP STAT. / FREQ. DISTR. / HISTOGRAM 

2 = CORR. & LIN. REGR. / MATCHED PRS. / TIME SERIES 

3 = ANALYSIS OF VARIANCE 

4 = MULTIPLE REGRESSION ? - 

4. Enter the number corresponding to the program for which you 
are preparing the data (the DESCRIPTIVE STATISTICS, 
FREQUENCY DISTRIBUTION, and HISTOGRAM programs 
will accept data files prepared for any of the ASA analysis 
programs). 

• If you enter a l , the following message will appear on the 
screen: 

BEGIN ENTERING YOUR DATA ELEMENTS. 
SIGNAL END OF DATA WITH @. 



Enter your first data value, after the question mark. Another 
question mark will appear. Continue entering your data. 
After the last data value has been entered, type and enter 
an @. The Computer will display the number of data values 
input as follows: 

NEW DATA COUNT = N DATA ELEMENTS. 
(Now skip to instruction #5) 
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If you enter a 2, the following message will appear on the 
screen: 

BEGIN ENTERING YOUR DATA PAIRS <X, V). 
SIGNAL END OF DATA WITH @, @. 



Enter your first data pair, after the question mark, separating 
the X and Y values with a comma. Another question mark 
will appear. Continue entering your data. After the last data 
pair has been entered, type and enter @,# (two "at" symbols, 
separated by a comma). The computer will display the 
number of data pairs input as follows: 



NEW DATA COUNT - N DATA ELEMENTS. 

NOTE: Consult the chapters on TIME SERIES 

ANALYSIS before preparing data for those programs. 
Special instructions are contained in the sections titled 
INSTRUCTIONS FOR INPUTTING DATA. 

(Now skip to instruction #5) 

If you enter a 3, the Computer will ask 

HOW MANY GROUPS <2 TO 5 ONLY) ?_. 

Enter the number of groups for which analysis of variance 
data will be prepared. The following message will appear on 
the screen : 

BEGIN ENTERING THE DATA FOR GROUP # 1 
SIGNAL END OF DATA WITH @. 



Enter the first data value for Group 1 , after the question 
mark. Another question mark will appear. Continue entering 
data for Group 1 . After the last data value for that group has 
been entered, type and enter an ®. The Computer will then 
request data for Group 2. 

NOTE: Remember which of your groups is Group 1 ; 
which is Group 2; etc. This information will be needed 
when you run the ANALYSIS OF VARIANCE, 
DESCRIPTIVE STATISTICS, HISTOGRAM, or 
FREQUENCY DISTRIBUTION programs on the data. 
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After all the data have been entered, the Computer will 
display the total number of data elements entered as follows: 

NEW DRTfi COUNT = N DATA ELEMENTS. 
<RLL GROUPS COMBINED) 

(Now skip to instruction #5) 

If you enter a 4, the Computer will ask 

HOW MANY INDEPENDENT VARIABLES <1 TO 5 ONLY) ?_ 

NOTE: The number of independent variables must be the 
same for each subject in the study. If values for one or 
more independent variables are missing for any subject, 
that subject must be excluded from the study. 

Enter the number of independent variables for which data 
will be entered. The following message will appear on the 
screen: 

BEGIN ENTERING VOUR DATA. 

SIGNAL END OF DATA BY ENTERING @ FOR THE DV VALUE. 

SUBJECT 1 : 

DV ?_ 

Enter the value on the dependent variable for Subject #1 , 
after the question mark. The Computer will then display 

IV 1 ?_ 

Enter the value on the first independent variable for Subject 
#1. Data, will be requested on each successive independent 
variable for the first subject; then the computer will request 
data values for Subject #2. After the data for all subjects 
have been entered, type and enter an @ instead of a DV data 
value. 

NOTE: Remember which independent variable has been 
assigned the codes IV1 , IV2, etc. This information will 
be necessary when running MULTIPLE LINEAR 
REGRESSION, DESCRIPTIVE STATISTICS, 
FREQUENCY DISTRIBUTION, or HISTOGRAM on 
the data. 

The number of subjects for which data were entered will then 
be displayed as follows: 

NEW DATA COUNT = N DATA ELEMENTS. 
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5. The Computer will finish writing the data file on disk and 
display the new file name. 

NOTE: If your data file is large, the computer may write 
data to disk several times during the data entry process 
(instruction #4). Be sure to wait for a question mark to 
appear on the screen before entering your next data value. 

Updating an Old Data File 

1. Load the program into the TRS-80. Type run and press QZHlj] 
The Computer will reply 

THIS PROGRRM IS BEING RUN TO: 
<P)REPflRE fl HEW DATA FILE 
•:.U)PDflTE AH OLD DATA FILE 
<L>IST AN OLD DATA FILE ? _ 

2. Enter a u. The Compuer will ask 

WHAT IS THE NAME OF THE OLD DATA FILE ? _ 

3. Enter the name of the file to be updated. The Computer will 
reply 

<S>RVE OLD FILE OR (R)EMOVE OLD FILE FROM DISK ? _ 

4. Enter an S if you still need the old data file, otherwise enter an 
R to kill the old file and free extra space on disk. The Computer 
will ask 

WHAT WILL BE THE NAME OF THE UPDATED DATA FILE ? _ 

5. Enter a name which describes the updated data. The name 
cannot be the same as the name of the old file (see file name 
section in your TRS-80 TRSDOS/DISK BASIC Manual).The 
Computer will ask 

FOR WHICH PROGRAM WERE THE DATA PREPARED: 

i = DESCRIP. STAT. / FREQ. DISTR. / HISTOGRAM 

2 = CORR. & LIN. REGR. / MATCHED PRS. / TIME SERIES 

3 = ANALYSIS OF VARIANCE 

4 = MULTIPLE REGRESSION ? _ 
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6. Enter the number corresponding to the program for which the 
old data file was prepared. The Computer will ask 

HOW HANV DATA ELEMENTS ARE TO BE REMOVED ? _ 

If you will only be adding elements to the old file, or if you are 
making a copy of the file, enter a and skip to instruction #7. 

NOTE: If you are updating a data file prepared for 
DESCRIPTIVE STATISTICS, FREQUENCY 
DISTRIBUTION, or HISTOGRAM, the file is a single-type 
data file, and each data value is a data element. If the data 
were prepared for CORRELATION & LINEAR 
REGRESSION, T-TEST FOR MATCHED PAIRS, or 
TIME SERIES ANALYSIS, the file is a paired-type data 
file and each data pair (X,Y) is a data element. Data files 
prepared for ANALYSIS OF VARIANCE consist of 
groups of data values and each data group is separated by 
the symbol @. In these files, called ANOVA files, each 
value (including the group separation symbol) is 
considered a data element. In multiple regression data 
files each subject is a data element. That is, each data 
element consists of the DV value, plus the value on each 
IV for one subject. 

Enter the number of data elements you wish to remove from 
the old file. The Computer will display 

LIST THE DATA ELEMENTS TO BE REMOVED. 



You must know the exact element number of each data element 
that is to be re moved. I f you are not sure, terminate the 
program (press l:l;Hfiia ) and list the data file to obtain the 
data element number(s). Enter one element number after each 
question mark. When all the element numbers have been 
entered, the Computer will begin reading the data and the name 
of the data file will be displayed. The Computer will display the 
number of data elements read from the file. For ANALYSIS OF 
VARIANCE FILES, the number of actual data values 
(excluding group separation symbols) will be displayed for each 
group. Next, the number of data elements which were removed 
will be displayed, followed by the new data element count (# 
elements read — # elements removed). 

If you are updating an ANOVA data file (a file prepared for 
ANALYSIS OF VARIANCE), skip to instruction #8. 

The Computer will ask 

DO VOU WANT TO ADD ANV NEW DATA ELEMENTS - <V)ES OR <N)0 ? 
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If you do not want to add new data elements to the file (that is, 
you are copying a data file or just removing elements), enter an 
N and skip to instruction #9. 

If you enter a Y, the Computer will decide what type of data 
file is being updated, and will request the new data elements as 
follows: 

• For single type data (files prepared for DESCRIPTIVE 
STATISTICS, FREQUENCY DISTRIBUTION, or 
HISTOGRAM) the Computer will display 

BEGIN ENTERING VOUR NEW DATA ELEMENTS. 
SIGNAL END OF NEW DATA WITH 6. 



Enter a new data value, after the question mark. Another 
question mark will appear. Continue entering data. After the 
last new data value has been entered, type and enter an ®. 

(Skip to instruction #9) 

For paired type data (files prepared for CORRELATION & 
LINEAR REGRESSION, T-TEST FOR MATCHED PAIRS, 
or TIME SERIES ANALYSIS) the Computer will display 

BEGIN ENTERING VOUR NEW DATA PAIRS <X,V). 
SIGNAL END OF NEW DATA WITH @, @. 



Enter your first new data pair, after the question mark, 
separating the X and Y values with a comma. Another 
question mark will appear. Continue entering your new data. 
After the last new data pair has been entered, type and enter 
@,@ (two "at" symbols, separated by a comma). 

(Skip to instruction #9) 

For multiple regression type data (files prepared for 
MULTIPLE LINEAR REGRESSION), the Computer will 
display 

BEGIN ENTERING VOUR NEW DATA. 

SIGNAL END OF NEW DATA BV ENTERING @ FOR THE DV VALUE. 
SUBJECT 1 : 
DV ? _ 
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The subject number will be the number of subjects encoun- 
tered on the old data file, minus any that were removed, plus 
1 (that is, the new data count +1). Enter the value on the 
dependent variable for the first new subject. The Computer 
will display 

IV 1 ? _ 

Enter the value on the first independent variable for the first 
new subject. Data will be requested on each successive 
independent variable for the first subject (the number of IVs 
will be between 1 and 5 and will agree with the number of IVs 
per subject found on the old data file). Then the Computer 
will request data for the second new subject. After the data 
for all new subjects have been entered type and enter an @ 
("at" symbol) instead of a data value. 



NOTE: The number of independent variables must be the 
same for each subject in the study. If values for one or 
more independent variables are missing for any subject, 
that subject must be excluded from the study. 

(Now skip to instruction #9) 

The Computer will ask 

NEW DRTR FOR GROUP 1 - <V>ES OR <N)0 ? _ 

If you are copying a file, or do not wish to add new data 
elements to Group 1 , enter an N. Otherwise enter a y . 

If no new data values will be added to Group 1 , the Computer 
will ask whether or not new data will be added to the second 
group. 

If data elements will be added to Group 1, the Computer will 
display 

BEGIN ENTERING THE NEW DATA FOR GROUP #1 
SIGNAL END OF DATA WITH § 



Enter the first new data value for Group 1, after the question mark. 
Another question mark will appear. Continue entering new data 
values for the first group. After all the new data elements for Group 
1 have been entered, type and enter an @ . The Computer will 
display the new data count for that group. The entire new data 
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sequence above will be repeated for the number of groups 
found on the old data file; then the Computer will display 

HIT ENTER TO CONTINUE ? _ 

Press Qznia. 

9. The Computer will display the new data element count (data 
elements read from the old file, minus data elements removed, 
plus data elements added), update the old data file, and display 
the name of the new data file. 

Listing A Data File 

1. Load the program into the TRS-80. Type RUN and press OdUD . 
The Computer will reply 

THIS PROGRAM IS BEING RUN TO: 
(P)REPARE fl NEW DRTfl FILE 
(U)PDflTE AN OLD DATA FILE 
<L)IST AN OLD DATA FILE ? _ 

2. Enter an L. The Computer will ask 

WHAT IS THE NAME OF THE OLD DATA FILE ? _ 

Enter the exact name of the file to be listed. The computer will 
ask, 

LIST DATA FILE ON LINE PRINTER - (V)ES OR (N)0 ? _ 



If you have a Line Printer and desire a permanent copy of the 
file listing, enter a Y, otherwise enter an N. 

The Computer will begin reading the data and the name of 
the data file will be displayed. Next the Computer will 
display the type of data file being read. 

The number of data elements read from the data file will be 
displayed, followed by the message 

HIT ENTER TO BEGIN LISTING ? _ 

or 

TURN ON VOUR PRINTER - HIT ENTER TO BEGIN LISTING ? 
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4. Turn on your Printer, if applicable, and press R?WI1il The data 
file will begin listing on the video screen (and printer). The 
listing may be stopped for viewing by simply pressing @. 
Pressing @ again will restart the listing. The listing (and printing) 
can be halted completely by pressing HITfaEITl for a few 
seconds. After the entire data file has been listed, the program 
will ask 



<L)IST DATA R6AIN OR (E)ND PROGRAM ? 



Enter an L or an E as appropriate. 



Sample Rllll (Updating an ANOVA disk file) 
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Messages and Special Considerations 

file not found in 700 means that the data file to be updated or 
listed does not exist on disk. You may have entered the data file 
name incorrectly or failed to insert the diskette containing the data 
file into a disk drive. 

bad file data and wrong data file type both indicate a 
problem in a data file. The disk may contain an ASA data file of the 
wrong type, a data file not prepared for ASA programs, or a computer 
program rather than a data file. 

If the number of data elements removed from the file by the 
Computer is less than the number you expected to be removed, you 
may have (1) entered a data value which did not exist or (2) entered 
the same data element more than once. You may cancel the update 
by pressing [33213 or allow the program to run to completion, then 
list the updated file and check it for mistakes. 

If the program ends prematurely, a temporary scratch file may 
have been left on your diskette. Enter kill "SCRATCH/ASA". The 
Computer will either remove the scratch file or display file not 
found. 
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Random Sample 

Description of the Program 

This program aids the user in selecting a random sample from a 
larger group of subjects, items or observations. Stratified random 
sampling can be performed by running the program more than 
once. After the user specifies the size of the population and the size 
of the desired sample, the Computer selects the sample and lists 
the numbers of the chosen data elements on the screen. 

Features 

• Sampling with or without replacement 

• Output can be listed in a Line Printer 

Limitations 

• Largest population size from which a sample may be drawn 
is 32767 

• Maximum sample size per run is 2200. 

How to Run Random Sample 

1. Load the program into the TRS-80. Type run and press QQHD • 
The Computer will ask 

WHAT IS THE TOTAL POPULATION SIZE ? _ 

2. Enter the number of persons, objects, packages, etc. in the 
total group. The Computer will display 

WHAT SIZE SAMPLE DO VOU DESIRE ? _ 

3. Enter the number of persons, objects, etc. that you want as your 
sample. The Computer will reply 

SAMPLING PROCEDURES AVAILABLE: 

1=SAMPLING WITH REPLACEMENT 

2=SAMPLING WITHOUT REPLACEMENT WHICH ? _ 

4. Select a procedure and enter the appropriate value. If you enter 
a l , each member of the total group can be selected as a 
member of the sample more than once. The Computer will ask 

LIST SAMPLE DATA ELEMENT NUMBERS ON PRINTER - <V)ES OR (N)0 
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5. Enter a Y if you have a Line Printer and want a permanent list 
of the selected element numbers. Otherwise, enter an N. 

6. The Computer will reply 

COMPUTER AT WORK - PLEASE BE PATIENT. 

Depending on the size of the sample you are selecting, it may 
take quite a while before the selection is completed. 

7. The element numbers which make up your sample will be 
displayed on the screen. If you do not have a printer, copy 
these numbers down for use in preparing your sample data. If 
your sample is larger than 48, the Computer will stop listing 
numbers as it fills the screen, and will display 

HIT ENTER TO CONTINUE LIST ? _ 

When you have copied the element numbers from the screen, 
press l HUi.l . 

8. When all sample element numbers have been listed, the Computer 
will print 

SELECT ANOTHER SAMPLE - <V)ES OR <H)0 ? _ 
Enter a Y or an N. 
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Messages and Special Considerations 

If you run this program for practice using the population and sample 
sizes above and obtain "results" that are different from the sample 
run, don't panic - that is the way the program is supposed to work! 
Remember, it is drawing a random sample. 
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Descriptive Statistics 

Description of the Program 

DESCRIPTIVE STATISTICS provides the user with an overall 
picture of his/her data. Output from the program includes sample 
statistics (mean, variance, standard deviation, range, minimum, and 
maximum); sample size; unbiased estimates of population parameters 
(variance and standard deviation); and data distribution coefficients 
(skewness and kurtosis). 

Features 

• Input from keyboard or data file (tape or disk) 

• Input accepted from any type ASA data file (X or Y variable 
from a paired type file, any single group from an analysis of 
variance file, dependent variable or any single independent 
variable from a multiple regression file) 

• Output formatted at 8^" x 11 " on Line Printer 

How to Run Descriptive Statistics 

1. Load the program into the TRS-80. Type run and press HMi3:i 
The Computer will ask 

HOW WILL DfiTfi BE ENTERED - OOEVBOfiRD (T)HPE OR (D)ISK 

2. Answer K, T, or depending on the type of input device you 
will be using. 

If you enter a D, the Computer will ask for the name of the 
data file on disk. You must enter the exact file name including 
the extension and password, if applicable (explained in your 
TRSDOS/DISK BASIC Manual). 

Instruction #6 contains further information concerning your 
response to the above question. 

If you entered a K, skip to instruction #4. 

The Computer will ask 

SPECIRL INPUT FILE TYPE - <V)ES OR (N)0 ? _ 
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3 . If your tape or disk data file was prepared as a single type file 
(prepared for DESCRIPTIVE STATISTICS, HISTOGRAM, or 
FREQUENCY DISTRIBUTION) enter an N and skip to instruc- 
tion #4. If the file was prepared for any other ASA program 
enter a Y. 

If you enter a Y, the computer will ask, 

WHICH TYPE <1=C0RRELATIGN /' MATCHED PAIRS T / TIME SERIES, 
2=ANALYSIS OF VARIANCE, 3=MULTIPLE REGRESSION) 

Depending on whether you enter a l , 2, or 3, the Computer 
will display, 

WHICH VARIABLE <1=X, 2=V) ? _ 

or 
WHICH GROUP <1 - 5 ONLY) ? _ 

or 

WHICH VARIABLE 03=DV, 1=IV#1, 2=IV#2 . . . 5=1 V#5) ? _ 

Enter the number corresponding to the variable or group for 
which descriptive statistics are desired. 

Note: Do not run DESCRIPTIVE STATISTICS on the time 
(X) variable in time series data nor on any coded inde- 
pendent variable in multiple regression files. 

4. The Computer will ask, 

WHAT IS THE NAME OF YOUR VARIABLE ? _ 

Enter any alphanumeric name up to 14 characters in length. 
The name will be used for labeling the output from the program. 
To save time you can simply press ia:iia;i . The Computer 
will display, 

DISPLAY RESULTS ON LINE PRINTER - <V>ES OR <N)0 ? _ 
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5. Enter a Y if you have a printer and desire a permanent record of 
the program output. Otherwise enter an N. 

6. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a ..-p. at instruction #2, skip to instruction #7. 

• If you entered a :ic at instruction #2, the Computer will 
respond, 

BEGIN ENTERING VOUR DRTfl. 

SIGNAL END OF DATA WITH @ (AT SYMBOL) ? _ 

Type your first data value, after the question mark and hit 
ldi?hdj;l . Another question mark will appear. Continue to 
enter the remaining data values, then enter @. 

(Skip to instruction #7) 

• If you enter a T at instruction #2, the Computer will 
reply 

INSERT DATA TAPE - HIT ENTER ? _ 

Load the data tape into the cassette recorder (into 
recorder #-1 if you are using a dual cassette system). Be 
sure the tape is rewound and that the recorder controls are 
set to Play. Then press QMI3 • Tne Computer will begin 
reading your data and the name of the data file will appear 
on the screen. Check the name of the file to be certain 
that the correct data are being read. 

7. If you requested output on the Line Printer, the Computer will 
display 

TURN ON VOUR PRINTER - HIT ENTER ? - 

Make sure your Printer is turned on, then press ia:iia;l . 

8. After the results of the program have been displayed (and 
printed, if applicable) the Computer will ask 

WANT TO RUN ANOTHER SET OF DATA - <V)ES OR <N)0 ? _ 

Respond by entering a Y or an N. 
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Sample Rim 
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Messages and Special Considerations 

file not found in 700 means that the data file referenced at 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly or failed to insert the diskette containing 
the data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your diskette. 
Enter kill "SCRATCH/ASA". The computer will either 
remove the file or display file not found. 

there are only 3 groups! means that you were using a special 
input data file type (in this case a tape or disk file prepared for 
ANALYSIS OF VARIANCE) and specified descriptive statistics for a 
group which did not exist on the file (3 is only an example). 

THERE ARE ONLY 2 INDEPENDENT VARIABLES! means that 

you were using a special input data file type (a tape or disk file 
prepared for MULTIPLE LINEAR REGRESSION) and specified 
descriptive statistics for an independent variable that did not exist. 

NOTE: Data distribution coefficients (Skewness and Kurtosis) 
are not displayed or printed if the standard deviation of the 
data set is 0. 
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Histogram 

Description of the Program 

HISTOGRAM allows the user to obtain a graphic description of 
his/her data set. The histogram is drawn with from one to eight 
intervals as selected by the user. Both frequencies and percentages 
are labeled on the histogram and each interval is plotted with 
considerable accuracy. The number of intervals on the histogram can 
be changed at will without the need for re-entering the data. 

Features 

• Input from keyboard or data file (tape or disk) 

• Input accepted from any type ASA data file (X or Y variable 
from a paired type file, any single group from an analysis of 
variance file, dependent variable or any single independent 
variable from a multiple regression file) 

• User may set limits of each interval or allow the Computer 
to calculate limits for equal size intervals 

• Histogram may be reconstructed using different limits or a 
different number of intervals via simple keyboard 
instructions 

• Print option may be selected each time histogram is 
reconstructed 

• Line Printer output formatted at SVi" x 1 1" 

Limitations 

• 8 intervals maximum 

• Label values limited to 6 characters (see note in Special 
Considerations section) 

How to Run Histogram 

1 . Load the program into the TRS-80. Type RUN and press 
ia;iia;l . The Computer will reply 

HOW WILL DRTfl BE ENTERED - (K)EVBOflRD (T)flPE OR <D>ISK 

or 
HOW WILL DPJfi BE ENTERED - <K)EVBOflRD OR CDfiPE ? _ 
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2. Answer K, T or D, according to the type of input device you will 
be using. If you answer k skip to instruction #5. 

If you enter a D the Computer will ask for the name of the data 
file on disk. You must enter the exact file name including the 
extension and password, if applicable (explained in your 
TRS-80 TRSDOS/DISK BASIC Manual). 

Instruction #6 contains further information concerning your 
response to the above question. 

The Computer will ask 

SPECIAL INPUT FILE TVPE - (V)ES OR <N)0 ? _ 

3. If your tape or disk data file was prepared as a single type file 
(prepared for DESCRIPTIVE STATISTICS, HISTOGRAM, or 
FREQUENCY DISTRIBUTION) enter an N and skip to 
instruction #5. Otherwise, enter a Y . 

If you enter a Y the Computer will ask 

WHICH TVPE <1=C0RRELATI0N / HATCHED PAIRS T / TIME SERIES, 
2=ANALYSIS OF VARIANCE, 3=MULTIPLE REGRESSION) 

Depending on whether you enter a 1 , 2 or 3, the Computer will 
ask 

WHICH VARIABLE <1=X, 2=V> ? _ 

or 
WHICH GROUP (1 - 5 ONLY) ? _ 

or 
WHICH VARIABLE <8=DV, l=IVti, 2=IV#2 . . . 5=1 V#5) ? - 

4. Enter the number corresponding to the variable or group for 
which a histogram is desired. 

NOTE: Do not run HISTOGRAM on the time (X) variable in 
time series data nor on any coded independent variable in 
multiple regression files. 

5. The Computer will ask 

WHAT IS THE NAME OF YOUR VARIABLE ? _ 

Enter an alphanumeric name (up to 14 characters in length). Do 
not use commas. The name will be used to label the results of 
the program on the Line Printer, if used. You may simply press 
nrcii3El to save time. 
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6. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a D at instruction #2, skip to instruction #7. 

• If you entered a K at instruction #2, the Computer will 
display 

BEGIN ENTERING VOUR DfiTfl. 

SIGNAL END OF DRTfl WITH @ (AT SVHBOL). 



Type your first data value, after the question mark and press 
WJiAA . Another question mark will appear. Enter the 
remaining data values, then enter a. 

(Now skip to instruction #7) 

• If you entered a T at instruction #2, the Computer will 
display 

INSERT DfiTfl TAPE - SET TO PLAY - HIT ENTER ? _ 

Load the data tape into the cassette recorder (into recorder 
#-1 if you are using a dual cassette system). Be sure the data 
tape is rewound, set the recorder controls to play, and press 
HJkHil . The Computer will begin reading the data and the 
name of the data file will be displayed. Check the name of 
the file to be certain that the correct data are being read. 

7. The Computer will display the number of data elements, 
minimum data value, and maximum data value and ask 

HOW MRNV INTERVALS FOR HISTOGRAM (1 THROUGH 8) ? _ 

8. Enter the number of intervals you want the histogram to 
contain. The Computer will reply 

LI HITS SET BV - (LOSER OR (C)OMPUTER ? . 

• Enter a c if you want the Computer to calculate the limits 
necessary to produce the number of equal size intervals 
requested above. 

(Now skip to instruction #9) 
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• Enter auto set the interval limits yourself. The Computer 
will ask 

WHAT IS THE LOWER LIMIT FOR INTERVAL # i ? _ 

Enter the smallest value to be included in the first interval. 
The Computer will ask for the lower limit for each succeeding 
interval. The limit value entered for each interval must be 
larger than the last limit that was entered. If you enter the 
same limit twice or enter a small limit value after one which 
was larger, you will be instructed to start over. 

After the lower limits for all the intervals have been entered, 
the Computer will ask 

WHAT IS THE TOP LIMIT FOR THE HISTOGRAM ? _ 

Enter the largest data value to be included in the histogram. 
This value must be larger than the lower limit of the last 
interval and is inclusive (i.e., data values equal to the top 
limit value will be placed in the last interval — they will not 
be excluded from the histogram). 

9. The Computer will display the histogram on the screen. 

NOTE: Data values are accumulated in the intervals according 
to their size relative to the various interval limits. Interval 
1, for example, will contain all data values greater than 
(or equal to) the lower limit of that interval but less than 

the lower limit of interval 2. 
The following message will be displayed below the histogram: 
<N)EW INTERVALS, <P)RINT HISTOGRAM, OR <E)ND PROGRAM 

10. Enter an N to reconstruct the histogram, a P to print the 
displayed histogram on the Line Printer, or an E to end the 
program. 

• If you enter an N, go to instruction #7. 

• If you enter a P, the Computer will display, 

TURN ON YOUR PRINTER -HIT ENTER ? _ 

1 1 . Press ia^na:l . The Computer will print the histogram and 
then display 

(N)EW INTERVALS, <P>RINT HISTOGRAM, OR <E)ND PROGRAM 
(Now go to instruction #10) 
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Sample Run 
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Messages and Special Considerations 

file NOT found IN 700 means that the data file referenced in 
instruction #2 does not exist on disk. You may have entered the data 
file name incorrectly or failed to insert the diskette containing the 
data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 
a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

there are only 3 groups! means that you were using a special 
input data file type (in this case a tape or disk file prepared for 
ANALYSIS OF VARIANCE) and specified descriptive statistics for 
a group which did not exist on the file. (The "3" above is only an 
example.) 

THERE ARE ONLY 2 INDEPENDENT VARIABLES! means that 

you were using a special input data file type (a tape or disk file 
prepared for MULTIPLE LINEAR REGRESSION) and specified 
descriptive statistics for an independent variable that did not exist. 

limits must be in order! — start over means that while 
entering lower limits for intervals (or the top limit for the 
distribution), you entered a value which was smaller than (or equal 
to) a previous limit value. See instruction #8. 

ONE INTERVAL MUST CONTAIN AT LEAST 6 VALUES 
TRY FEWER INTERVALS (YOU TRIED 5 LAST TIME) is self- 
explanatory. Any data set containing a total of 6 or more values can 
be plotted (try asking for 1 interval) but may have to settle for 
fewer intervals than you wanted. 

NOTE: Data values for HISTOGRAM may range from -3276.7 
to +3276.7 only. To insure that the program will run 
properly, and to provide for readable values on the X axis 
of the histogram figure, it is recommended that all data 
values be "coded" down to consist of a maximum of three (3) 
digits before the decimal point. Any valid coding scheme, 
such as division by a constant, subtraction of a constant, 
etc., may be used. The number of digits following the decimal 
point has no effect on the operation of the program, but all 
values are rounded to one decimal place. 
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For example, a researcher studying income, might input each 
subject's income in "thousands of dollars" (an income of 
$15,000.00 would be input as 15, an income of $1 1,450.00 
as 1 1.45, etc.). The resulting histogram would present the 
data as "thousands of dollars of income." Coding can also 
be used to make histograms involving extremely small values 
more readable. In this case, the values would be "coded" up, 
or made larger. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your 
diskette. Enter kill "SCRATCH/ ASA". The Computer will 
either remove the file, or display file not found. 
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Frequency Distribution 

Description of the Program 

FREQUENCY DISTRIBUTION provides a tabular description of the 
distribution of values in a set of data. The table is prepared with 
from one to ten intervals as selected by the user. The number of 
intervals in the table can be changed at will without the need for 
re-entering the data. Entries on the frequency distribution table 
include interval limits, frequency of occurrence, percentage for each 
interval, and cumulative percentage by interval. 

Features 

• Input from keyboard or data file (tape or disk) 

• Input accepted from any type ASA data file (X or Y variable 
from a paired type file, any single group from an analysis of 
variance file, dependent variable or any single independent 
variable from a multiple regression file) 

• User may set limits of each interval or allow the Computer to 
calculate limits for equal size intervals 

• Table may be reconstructed using different limits or a 
different number of intervals via simple keyboard instructions 

• Print option may be selected each time table is reconstructed 

• Line Printer output formatted at % l h" x 11" 

Limitations 

• 10 intervals maximum 

How to Run Frequency Distribution 

1. Load the program into the TRS-80. Type RUN and press ia:m;l 
The Computer will reply 

HOW WILL DATA BE ENTERED - <K>EVB0ARD <T)flPE OR <DMSK 

or 
HOW WILL DATA BE ENTERED - (K)EVBOARD OR <T)flPE ? _ 
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2. Answer K, T or D according to the type of input device you will 
be using. If you answer K skip to instruction #5. 

If you enter a D, the Computer will ask for the name of the data 
file on disk. You must enter the exact file name including the 
extension and password, if applicable (explained in your 
TRS-80 TRSDOS/DISK BASIC Manual). 

Instruction #6 contains further information concerning your 
response to the above question. 

The Computer will ask 

SPECIAL INPUT FILE TVPE - <V)ES OR <N>0 ? - 

3. If your tape or disk data file was prepared as a single type file 
(prepared for DESCRIPTIVE STATISTICS, HISTOGRAM, or 
FREQUENCY DISTRIBUTION) enter an N and skip to 
instruction #5. Otherwise enter a Y . 

If you enter a Y the Computer will ask 

WHICH TVPE (i-CORRELATION / MATCHED PAIRS T / TIME SERIES, 
2=ANALVSIS OF VARIANCE, 3=MULTIPLE REGRESSION) 

Depending on whether you enter a 1 , 2 or 3, the Computer will 
ask 

WHICH VARIABLE <1=X, 2=V> ? _ 

or 

WHICH GROUP <1 - 5 ONLY) ? _ 

or 
WHICH VARIABLE <@=DV, 1=IV#1, 2=IV#2 . . . 5=IV#5) ? - 

4. Enter the number corresponding to the variable or group for 
which a frequency distribution is desired. 

NOTE: Do not run FREQUENCY DISTRIBUTION on the 
time (X) variable in time series data, nor on any coded 
independent variable in multiple regression Files. 

5. The Computer will ask 

WHAT IS THE NAME OF YOUR VARIABLE ? _ 
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Enter an alphanumeric name (up to 14 characters in length). 
Do not use commas. The name will be used to label the results 
of the program on the printer, if used. You may simply press 
ldi?kH;l to save time. 

6. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered af at instruction #2, skip to instruction #7. 

• If you entered a K at instruction #2, the Computer will 
display 

BEGIN ENTERING VOUR DfiTfi. 

SIGNAL* END OF DATA WITH @ CAT SYMBOL). 



Type your first data value, after the question mark and press 
fam4;l . Another question mark will appear. Enter the 
remaining data values then enter @. 

(Now skip to instruction #7) 

• If you entered a T at instruction #2, the Computer will 
display 

INSERT DATA TAPE - SET TO PLAY - HIT ENTER ? _ 

Load the data tape into the cassette recorder (into recorder 
#-1 if you are using a dual cassette system). Be sure the data 
tape is rewound, set the recorder controls to Play, and press 
litkii-A . The Computer will begin reading the data and the 
name of the data file will be displayed. Check the name of 
the file to be certain that the correct data are being read. 

7. The Computer will display the number of data elements, 
minimum data value, and maximum data value and ask 

HOW MANY INTERVALS FOR DISTRIBUTION <1 THROUGH 18) 7 

8. Enter the number of intervals you want the distribution table 
to contain. The Computer will reply 

LIMITS SET BY - <U)SER OR (OOMPUTER ? _ 

• Enter a c if you want the Computer to calculate the limits 
necessary to produce the number of equal size intervals 
requested above. 

(Now skip to instruction #9) 
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• Enter a u to set the interval limits yourself. The Computer 
will ask 

WHAT IS THE LOWER LIMIT FOR INTERVAL # 1 ? _ 

Enter the smallest value to be included in the first interval. 
The Computer will ask for the lower limit for each succeeding 
interval. The limit value entered for each interval must be 
larger than the last limit that was entered. If you enter the 
same limit twice or enter a small limit value after one which 
was larger, you will be instructed to start over. 

After the lower limits for all the intervals have been entered, 
the Computer will ask 

WHAT IS THE TOP LIMIT FOR THE DISTRIBUTION ? _ 

Enter the largest data value to be included in the distribution. 
This value must be larger than the lower limit of the last 
interval and is inclusive (i.e., data values equal to the top 
limit value will be placed in the last interval - they will not 
be excluded from the distribution). 

9. The Computer will display the frequency distribution table on 

the screen. 

NOTE: Data values are accumulated in the intervals according 
to their size relative to the various interval limits. Interval 1 , 
for example, will contain all data values greater than or 
equal to the lower limit of that interval but less than the 
lower limit of interval 2. For aesthetic reasons, the upper 
limit of each interval, except the last, will be listed on the 
distribution table as the lower limit of the next higher 
interval minus .001 (e.g., 43.000 TO 46.599, 46.600 TO 
50.199, 50.200 TO 53.799). 

The following message will be displayed below the distribution 
table: 



<N)EW INTERVALS, < FOR I NT DISTRIBUTION, OR <E)ND PROGRAM 

10. Enter an N to reconstruct the table, a P to print the displayed 
distribution table on the Line Printer, or an E to end the program. 

• If you enter an N go to instruction #7. 

• If you enter a P, the Computer will display 

•7, 
TURN ON V0UR PRINTER - HIT ENTER 
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1 1 . Press HHH3 . The Computer will print the distribution table 
and then display 



(H)EW INTERVALS, (P)RINT DISTRIBUTION, OR <E>ND PROGRAM 
(Now go to instruction #10) 



Sample Run 
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Messages and Special Considerations 

file not found in 700 means that the data file referenced in 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly, or failed to insert the diskette containing 
the data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, 
or a computer program rather than a data file. 

there are only 3 groups! means that you were using a 
special input' data file type (in this case a tape or disk file prepared 
for ANALYSIS OF VARIANCE), and specified descriptive statistics 
for a group which did not exist on the file. (The "3" above is only 
an example.) 

there are only 2 independent variables! means that 
you were using a special input data file type (a tape or disk file 
prepared for MULTIPLE LINEAR REGRESSION), and specified 
descriptive statistics for an Independent variable that did not exist. 

limits must be in order! -start over means that while 
entering lower limits for intervals or the top limit for the 
distribution, you entered a value which was smaller than (or equal 
to) a previous limit value. See instruction #8. 

NOTE: Data values and Interval limit values of any magnitude 
may be used in FREQUENCY DISTRIBUTION but, on the 
program output, the interval limits are rounded to three 
decimal places in order to fit on the screen. If your data 
set contains exceptionally large or small data values (e.g., 
3652377.65, 1.7E22, .00000000062, -1.2E1 8), it would be 
best to "code" the data up or down resulting In values that 
could better be represented on the frequency distribution 
table. See the note under HISTOGRAM - Messages and 
Special Considerations for examples. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your diskette. 
Enter KILL "SC8ATCH/ASA". The computer will either 
remove the file or display file NOT found. 
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Analysis of Variance 

Description of the Program 

This program performs a one-way (single-classification) analysis of 
variance on two to five groups or samples. Output from the program 
includes the analysis of variance (ANOVA) summary table, F ratio, 
estimate of exact chance probability, and summary statistics (N, 
mean, and standard deviation) for each group in the study. 

Features 

• Equal or unequal sample sizes 

• Estimate of exact chance probability 

• Input from keyboard or data file (disk or tape) 

• Output formatted at SVz" x 11" on Line Printer 

Limitations 

• Maximum of five (5) groups 

How to Run Analysis of Variance 

1 . Load the program into the TRS-80. Type run and press QSQD 
The Computer will reply 

HOW WILL DRTfl BE ENTERED - (K)EVBORRD, <T)flPE, OR <D>ISK 

or 
HOW WILL DflTfi BE ENTERED - OOEVBOflRD OR (T)flPE ? - 

2. Answer K, T or D according to the type of input device you 
will be using. 

If you enter a D, the Computer will ask for the name of the 
data file on disk. You must enter the exact file name including 
the extension and password, if applicable (explained in your 
TRS-80 TRSDOS/DISK BASIC Manual). 

Instruction #6 contains further information concerning your 
response to the above question. 

The Computer will ask 

HOW MANY GROUPS <2 TO 5 ONLY) ? _ 

3. Enter the number of groups or samples in the study. The 
Computer will display 

NAME OF GROUP « 1 ? - 
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4. Enter an alphanumeric name (up to 14 characters in length). Do 
not use commas in the name. The group name will be used to label 
the results of the program. 

The Computer will request the name of each successive group in 
the study and then reply 

DISPLAY RESULTS ON LINE PRINTER - <V)ES OR (N)0 ? - 

5. Enter a Y if you have a printer and desire a permanent record of 
the analysis of variance results. Otherwise, enter an N. 

6. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a D at instruction #2, skip to instruction #7. 

• If you entered a jK at instruction #2, the Computer will 
display 

BEGIN ENTERING THE DATA FOR GROUP # 1 
SIGNAL END OF DATA WITH § (AT SYMBOL). 



Enter the first data value for Group 1, after the question 
mark. Another question mark will appear. Continue entering 
data for Group 1 . After the last data value for that group has 
been entered, type and enter an @ ("at" symbol). The 
Computer will then request data for the next group. For each 
group in the study enter the data values followed by an @. 

(Now skip to instruction #7) 

• If you entered a T at instruction #2, the Computer will 
display, 

INSERT DATA TAPE - SET TO PLAY - HIT ENTER ? _ 

Load the data tape into the cassette recorder (into recorder 
#-1 if you are using a dual cassette system). Be sure the data 
tape is r ewound, set the recorder controls to Play, and press 
iai?iia;l . The Computer will begin reading the data and the 
name of the data file will be displayed. Check the name of 
the file to be certain that the correct data are being read. 

7. If you requested output on the line printer, the Computer will 
reply 

TURN ON PRINTER - HIT ENTER ? 

Turn on your printer and press QZEOQ- 
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The Computer will display the ANOVA summary table on the 
screen and, if applicable, print both the ANOVA summary 
table and the group statistics. 

The Computer will then display 

<G>R0UP STATISTICS, (fDNOVfi TABLE, OR <E>ND PROGRAM 

Enter a,0 to obtain summary statistics on each group. The 
statement above will again appear on the screen. You may view 
the ANOVA summary table and the group statistics as many 
times as you wish by entering the appropriate codes; the results 
will be printed on the Line Printer only once. Entering an E will 
end the program. 



Sample Run 
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Messages and Special Considerations 

file not found in 200 means that the data file referenced in 
instruction #2 does not exist on disk. You may have entered the data 
file name incorrectly or failed to insert the diskette containing the data 
data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

the data file contains 4 groups not 3 means that the 
number of groups you specified in instruction #3 did not agree with 
the number of groups encountered in the tape or disk data file. 

NOTE (DISK BASIC ONLY); If the program ends prematurely 
a temporary scratch file may have been left on your diskette. 
Enter KILL "SC8ATCH/ASA*». The Computer will either 
remove the scratch file or display file not found. 
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T-Test for Matched Pairs 

Description of the Program 

T-TEST FOR MATCHED PAIRS allows the user to test for a 
significant difference between the means of two measures, X and Y, 
when: 

1 . the measures were taken on the same individuals, both before 
and after the introduction of an experimental factor 
(pre-post design), or 

2. individuals were matched on the basis of some variable(s) to 
ensure that the samples were as similar as possible before the 
experiment was begun. 

This procedure is also referred to as a t test for correlated data, 
related measures, matched samples, etc. Output includes means, 
standard deviations, and standard errors of the means for the two 
variables; number of pairs; product-moment correlation between X 
and Y; difference between means; degrees of freedom; t ratio; and a 
probability estimate. 

A / test for independent samples can be obtained for non-correlated 
data by running ANALYSIS OF VARIANCE. Run the program for 
two groups. The t ratio is simply the square root of the obtained F 
ratio. 

Features 

• One-tailed or two-tailed tests 

• Estimate of exact chance probability 

• Input from keyboard or data file (disk or tape) 

• Output to Line Printer formatted at 8W x 1 1" 

How to Run T-Test for Matched Pairs 

1 . Load the program into the TRS-80. Type RUN and press UiJMH;l 
The Computer will ask 

HOW WILL DATA BE ENTERED - (K)EVBOflRD <T)RPE OR <D)ISK 
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2. Answer K, T or D depending on the type of input device you 
will be using. 

If you enter a D, the Computer will ask for the name of the 
data file on disk. You must enter the exact file name including 
the extension and password, if applicable (explained in your 
TRSDOS/DISK BASIC Manual). 

Instruction #6 contains further information concerning your 
response to the above question. 

The Computer will reply 

DISPLAY RESULTS ON LINE PRINTER - WES OR (N)0 ? _ 

3. Enter a y if you have a printer and desire a permanent record 
of the test results. Otherwise, enter an N. The Computer will 
ask 

WHAT IS THE NAME OF VARIABLE X ? - 

4. Enter any alphanumeric name (up to 14 characters in length). 
Do not use commas. The name will be used for labeling the / 
test results. Answer accordingly to the question, 

WHAT IS THE NAME OF VARIABLE V ? _ 

To save time you can reply to the above questions by simply 
pressing 03113 but the variables will be unlabeled when the 
results are displayed. The Computer will display 

TEST OF HYPOTHESIS <1=0NE-TAILED, 2=TW0-TAILED> ? _ 

5. If your hypothesis predicts the direction of the difference 
between the means for X and Y, enter a j . If only a difference 
(in either direction) is predicted, enter a 2. 

6. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a o at instruction #2, skip to instruction #7. 

• If you entered a k at instruction #2, the Computer will 
respond 

BEGIN ENTERING YOUR DATA PAIRS (X, V). 
SIGNAL END OF DATA WITH H>, @. 



70 



Type your first data pair, after the questio n mark ( separate 
the X and Y values with a comma) and hit EEfflO . Another 
question mark will appear. Continue entering the data pairs, 
then type and enter @>@ after the last pair. 

(Now skip to instruction #7) 

• If you enter a T at instruction #2, the Computer will 
respond, 

INSERT DATA TAPE - HIT ENTER ? - 

Load the data tape into the cassette recorder (into recorder 
#-1 if you are using a dual cassette system). Be sure the tape 
is rewound and that the recorder controls are set to Play. 
Then press HflDBEl . The Computer will begin reading your 
data and the name of the data file will appear on the screen. 
Check the name of the file to be certain that the correct data 
are being read. 

7. The Computer will display the results of the t test on the screen 
and ask 

WANT TO RUN ANOTHER SET OF DATA - CV)ES OR <N)0 ? - 
Enter a Y or an N as appropriate. 



Sample Ren 
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Messages and Special Considerations 

file not found in 700 means that the data file referenced in 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly or failed to insert the diskette containing 
the data file into a disk drive. 



fd, bad file data and wrong data file type all indicate a 
problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your diskette. 
Enter kill "SCRATCH/ASA". The Computer will either 
remove the file or display file not found. 



73 



Correlation & Linear Regression 

Description of the Program 

CORRELATION & LINEAR REGRESSION is a multi-step program 
which describes the relationship between two variables or sets of 
measurements, calculates regression coefficients, provides an X by Y 
plot of the data with or without the regression (prediction) line, and 
allows the user to obtain the predicted value of Y at any value of X. 
The output also includes means and standard deviations for X and 
Y, number of pairs, and degrees of freedom. 

Features 

• Input from keyboard or data file (tape or disk) 

• X by Y plot of the data 

• Regression line on the X by Y plot if desired 

• Expected values of Y in interactive mode (X values input via 
keyboard) 

• Correlation/regression statistics and X by Y plot on Line 
Printer (formatted at 8W x 1 1") 

How to Run Correlation & Linear Regression 

1. Load the program into the TRS-80. Type run and press QMI3 • 
The Computer will ask 

HOW WILL DfiTR BE ENTERED - (K)EVBOfiRD (T)flPE OR (D)ISK ? _ 

2. Answer K, T or D according to the type of Input device you will 
be using. 

If you enter a D, the Computer will ask for the name of the 
data file on disk. You must enter the exact file name Including 
the extension and password, if applicable (explained in your 

TRSDOS/DISK BASIC Manual). 

Instruction #5 contains further information concerning your 
response to the above question. 

The Computer will ask 

DISPLAY RESULTS ON LINE PRINTER - <V)ES OR (N)0 ? _ 
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3. Enter a Y if you have a Line Printer and desire a permanent 
record of the correlation/regression statistics. If you select the 
PLOT option while running the program, the X by Y plot will 
also be printed (with or without the regression line). 

NOTE: During any single run of CORRELATION & 
LINEAR REGRESSION the correlation/regression 
statistics and the X by Y plot will be printed only once, 
regardless of how many times the STATISTICS and PLOT 
options are selected (see instruction #7). 

The Computer will ask 

WHAT IS THE NAME OF VARIABLE X ? _ 

4. Enter any alphanumeric name (up to 14 characters in length). 
The name will be used for labeling the results of the program. 
Answer accordingly to the question, 

WHAT IS THE NAME OF VARIABLE V ? - 

To save time you can reply to the above questions by simply 
Pressing QZD13 but the variables will be unlabeled when the 
results are displayed. 

5. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a D at instruction #2, skip to instruction #7. 

• If you entered a K at instruction #2, the Computer will reply 

BEGIN ENTERING VOUR DATA PAIRS <X, V). 
SIGNAL END OF DATA WITH §, @. 



Type your first data pair, after the questio n mark (s eparate 
the X and Y values with a comma) and hit Q2QI3 • 
Another question mark will appear. Continue entering data 
pairs, then type and enter @,@ after the last pair. 

(Skip to instruction #7) 
• If you entered a T at instruction #2, the Computer will reply 

INSERT DATA TAPE - HIT ENTER ? _ 
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Load the data tape into the cassette recorder (into Recorder #-1 
if you are using a dual cassette system). Be sure the tape is 
rewound and that the recorder controls are set to Play. Then press 
r3i?hH;i . The Computer will begin reading your data and the 
name of the data file will appear on the screen. Check the 
name of the file to be certain that the correct data are being 
read. 

6. If you requested output on the Line Printer the Computer will 
display 

TURN ON PRINTER - HIT ENTER ? _ 

Make sure your printer is turned on, then press HZffiD • 

7. The Computer will display (and print, if applicable) the 
correlation/regression statistics and ask 

(1=PL0T, 2=PREDICT, 3=STRTISTICS, 4=ST0P, 5=NEW RUN) WHICH ? _ 

You may select any of the options by entering the appropriate 
code. 

• If you enter a 1 the Computer will ask 

WANT REGRESSION LINE SHOWN (1=VES, 2=N0) ? _ 

Enter a :| or a 2. The Computer will draw and label a scatter- 
gram (X values on the horizontal axis, Y values on the 
vertical axis) and plot the data points. If you wanted the 
regression line, the line will be drawn on the scattergram at 
the proper location. The Computer will next print the X by 
Y plot (with or without the regression line) on the Line 
Printer, if applicable, and display 

HIT ENTER TO CONTINUE ? 

When you have finished viewing the scattergram, press QZD33 • 
The Computer will again reply 

<1=PL0T, 2=PREDICT, 3=STRTISTICS, 4=ST0P.. 5=HEW RON) WHICH? 
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• If you enter a 2 the Computer will display 
ENTER @ TO STOP PREDICTING 

and will set up a table. A question mark will appear and the 
Computer will wait for you to input a value for X. Enter any 
numeric value within the range of X values in your data. The 
predicted Y value will be displayed along with another 
question mark. When you want to stop predicting, enter @ in 
place of an X value. 

NOTE: Values of Y predicted from X values which lie 
outside the range of X for your data will probably be 
inaccurate. When an X value outside this range is 
entered, the predicted value will be accompanied by the 
message, (x not in range). 

When you have stopped predicting, the Computer will reply 
<1=PL0T, 2=PREDICT, i=STATISTICS, 4=ST0P.. 5=NEW RUN) WHICH 

• If you enter a 3, the correlation/regression statistics will be 
displayed and the message above will reappear. 

Run the program options as many times as you wish, then enter 
a 4 or 5 as appropriate. Remember, the correlation/regression 
statistics and the X by Y plot are only printed once. 



Sample Run 
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Messages and Special Considerations 



file not found in 700 means that the data file referenced at 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly or failed to insert the diskette containing 
the data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

(x not in range) means that you entered a value of X which 
did not fall within the range of X in your original data (see the note 
at instruction #7). 

NOTE: CORRELATION & LINEAR REGRESSION calculates 
the statistics necessary for predicting values of Y from values 
of X. That is, the X variable is the predictor. It is important, 
therefore, when entering data or preparing a data file to place 
the predictor variable in the X, or first, position in the pair. 
In our example, we predicted people's weight from their 
height. We could predict height from weight by running the 
program again, entering the weight as the X variable and 
height as the Y variable. 

Since the X and Y variables are not labeled on the 
scattergram it is important to remember that the X variable 
is plotted on the horizontal axis; the Y variable on the 
vertical axis. 

NOTE (DISK BASIC ONLY): If the program ends prematurely 
a temporary scratch file may have been left on your diskette. 
Enter KILL "SCRATCH/ASA". The Computer will either 
remove the file or display file not found. 



CA UTION: If all X values or all Y values are identical, variance 
will be equal to zero. This condition with either cause a 
"division by zero" error message or provide results that are 
inaccurate or misleading. 
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Multiple Linear Regression 

Description of the Program 

This program performs a multiple regression analysis on data with up 
to five independent variables on any number of subjects. Output 
from the program includes the coefficient of determination; 
coefficient of multiple correlation; standard error of estimate; 
regression, residual, and total sums of squares; F ratio; degrees of 
freedom; probability of chance; and means, standard deviations, and 
regression (equation) coefficients for each variable. 

Features 

• Input from keyboard or data file (disk or tape) 

• Any or all independent variables on a data file may be 
included in the analysis. The regression model can be 
modified without re-creating the data file. 

• F ratio for the regression with an estimate of exact chance 
probability 

• Output can be listed on a Line Printer 

Limitations 

• Maximum of 5 independent variables 

• Dependent variable cannot be run as an independent variable 
— it is fixed in position #1 in the data file. 

How to Run Multiple Linear Regression 

1 . Load the program into the TRS-80. Type run and press ia:na:l , 
The Computer will reply 

HOW WILL DATA BE ENTERED - (K)EVBOfiRD, (T)FlPE, OR <[»ISK 

2. Answer K, T or D according to the type of input device you will 
be using. 

If you enter a D the Computer will ask for the name of the data 
file on disk. You must enter the exact file name including the 
extension and password, if applicable (explained in your 
TRS-80 TRSDOS/DISK BASIC Manual). 

Instruction #5 contains more information concerning your 
response to the above question. 

The Computer will reply 

DISPLflV RESULTS ON LINE PRINTER - <V)ES OR <N)0 ? _ 
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3. Enter a Y if you have a Printer and want a permanent record 
of the program results. Otherwise, enter an n. The Computer 
will ask 

HOW MANV INDEPENDENT VARIABLES FOR THIS RUN <l-5) ? - 

4. Enter the number of independent variables for the regression 
model which will be used in this run of the program. 

5. The Computer's next action depends on your response at 
instruction #2 (input device) 

• If you entered a T or a d at instruction #2, skip to 
instruction #7. 

• If you entered a K at instruction #2, the Computer will ask 
for the name of the dependent variable and the name of each 
independent variable. The names you enter ( up to 10 
characters in length) will be used to label the program results. 
Do not use commas in the names. To save time you may simply 
P ress EjTCM'ffl instead of entering a name. 

The Computer will display 

BEGIN ENTERING VOUR DfiTfl. 

SIGNAL END OF DATA BV ENTERING § FOR THE DV VALUE. 

SUBJECT # 1 

DV ? _ 

6. Enter the value on the dependent variable for Subject #1 , after 
the question mark. The Computer will then display 

IV 1 ? _ 

Enter the value on the first independent variable for Subject 
#1. Data will be requested on each successive independent 
variable for the first subject, then the Computer will request 
data values for Subject #2. After the data for all subjects have 
been entered type and enter @ instead of a DV data value. 

(Now skip to instruction #12.) 

7. At instruction #4 you indicated the number of independent 
variables which will be used during this run of MULTIPLE 
LINEAR REGRESSION. Since data files on tape or disk can 
contain up to 5 independent variables, you will now have to tell 
the Computer exactly which independent variables on your file 
it is to use (the variable names will also be requested at this 
time). 
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EXAMPLE: Your data file on tape contains 5 independent 
variables for each subject. You want to analyze the 
regression of the dependent variable on independent 
variables 1, 3 and 4. At instruction #4 you entered a 3. 

The Computer will ask 

WHICH 3 IV 'S FROM THE FILE WILL BE USED 
(ENTER ONE IV # RFTER EACH QUESTION MARK) 

FIRST ? _ 

8. Enter the number of an independent variable that you want to 
be included in the analysis (e.g., 1). The Computer will ask 

WHAT IS THE NAME OF THAT IV ? _ 

9. The name you enter (up to 10 characters in length) will be used 
to label the program results. Do not use com mas in the name. 
To save time you may simply press Hflmm . 

The Computer will request numbers and names for the other 
independent variables in like manner (i.e., SECOND, THIRD). 

NOTE: The order in which the IV numbers are entered is 
not important. However, the number of IV's must equal 
the number you entered at instruction #4 and each IV# 
must be entered once — and only once. 

The Computer will ask 

WHAT IS THE NAME OF THE DV ? _ 

1 0. Enter the name of the dependent variable. 

• If you entered a D at instruction #2 (input data on disk) skip 
to instruction #12. 

• If you entered a T at instruction #2, the Computer will 
display, 

LOAD DATA TAPE - HIT ENTER ? _ 

1 1 . Load the data tape into the cassette recorder (into recorder #-1 
if you are using a dual cassette system). Be sure the d ata tape is 
rewound, set the recorder controls to Play, and press PffHIH . 
The Computer will begin reading the data and the name of the 
data file will be displayed. Check the name of the file to be 
certain that the correct data are being read. 



1 2. The Computer will take a few seconds to complete the 
necessary calculations — be patient. 

If you requested output on the Line Printer the Computer will 
reply 

TURN ON PINTER - HIT ENTER ? _ 

Be sure your Printer is turned on, then press l*i?m:i 

13. The regression statistics will be displayed on the screen (and on 
the Line Printer, if applicable) and the Computer will reply 

(COEFFICIENTS OR (REGRESSION STATISTICS ? _ 

14. Enter a c to obtain a summary table listing the variables, 

regression coefficients, etc. 

You may view the regression statistics and the table of 
coefficients as many times as you wish by entering the 
appropriate codes; the results will be printed on the Line 
Printer only once. 



Sample Run 
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Messages and Special Considerations 

file not found in 450 means that the data file referenced in 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly or failed to insert the diskette containing 
the data file into a disk drive. 

FD BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

only 2 ivs on FILE! means that in instruction #4 you requested 
the Computer to perform the analysis using more independent 
variables than the number contained on the data file (i.e., the 
number of IV's placed on the data file when it was prepared). 

matrix IS singular, means that the regression analysis was not 
performed because the covariance matrix had no inverse. This 
situation arises when two or more of the rows in the matrix are 
dependent upon one another (correlated). 

NOTE: A singular matrix is artificially created if you 

accidentally enter a duplicate IV # at instruction #9. The 
Computer will enter that IV into the equation more than 
once resulting, of course, in a perfect correlation. 

NOTE: Although means and standard deviations are automati- 
cally printed for each variable, they will be meaningless for 
coded independent variables. If a multiple regression data file 
contains coded variables (not true measurements) this should 
be taken into consideration if you run DESCRIPTIVE 
STATISTICS, HISTOGRAM, or FREQUENCY DISTRIBU- 
TION on the file. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your diskette. 
Enter KILL "SCRATCH/ASA". The Computer will either 
remove the scratch file or display file not found. 
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Time Series Analysis I 

Description of the Program 

This program analyzes a set of observations made at different periods 
of time (time series) for trend and allows the user to obtain predicted 
values of the variable under study according to the least squares 
trend line fitted through the data. The test performed to ascertain 
whether trend is present in the data is the sign (change of direction) 
test. Output includes the percentage of variance accounted for by 
the trend, coefficients for the trend line equation, point of origin, 
and time unit. Additionally, the program plots the time series data 
with or without the trend line. 

Features 

• Input from keyboard or data file (tape or disk) 

• Yearly data can be consecutive or evenly spaced years 

• Y by TIME plot of the data 

• Trend line on the plot if desired 

• Predicted values of Y in interactive mode (TIME values input 
via keyboard) 

• Trend analysis statistics and plot (with or without trend line) 
on Line Printer formatted at % l h" x 11 " 

Limitations 

• Quarterly, monthly, and weekly data must be consecutive. 

• Missing data must be handled according to the instructions 
for entering time series data (page 97). 

How to Run Time Series Analysis I 

1. Load the program into the TRS-80. Type run and press Q3 
The Computer will ask 

HOW WILL DATA BE ENTERED - OOEVBOfiRD (T)flPE OR (D)ISK ? _ 

2. Answer K, T or D according to the type of input device you will 
be using. 

If you enter a D, the Computer will ask for the name of the 
data file on disk. You must enter the exact file name including 
the extension and password, if applicable (explained in your 
TRSDOS/DISK BASIC Manual). 

Instruction #6 contains further information concerning your 
response to the above question. 
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The Computer will display 

TVPE OF DATA - (V)EfiRLV (Q)UfiRTERLV (M)OHTHLV (W)EEKLV 

3. Enter Y, q, m or w according to the type of data you will be 
using. Yearly data may be comprised of consecutive years (e.g., 
1968, 1969, 1970) or years spaced at equal intervals (e.g., 1950, 
1960, 1970). Quarterly, monthly, and weekly data must be 
consecutive. The Computer will ask 

DISPLAY RESULTS ON LINE PRINTER - <V)ES OR <N)0 ? _ 

4. Enter a Y if you have a Line Printer and desire a permanent 
record of the trend statistics. If you select the PLOT option 
while running the program, the TIME by Y plot will also 
be printed (with or without the trend line). 

NOTE: During any single run of TIME SERIES ANALYSIS 
I the statistics and the Y plot will be printed only once, 
regardless of how many time the STATISTICS and PLOT 
options are selected (see instruction #8). 

The Computer will ask 

WHAT IS THE NAME OF VARIABLE V ? _ 

5. Enter any alphanumeric name (up to 14 characters in length). 
Do not use commas in the name. The name will be used for 
labeling the results of the program. To save time you can reply 
to the above question by simply pressing la^iia;! but the 
variable will be unlabeled when the results are displayed. 

6. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a D at instruction #2, skip to instruction #7. 

• If you entered a K at instruction #2, the Computer will 
reply 

BEGIN ENTERING VOUR OBSERVATIONS <SEE MANUAL). 
SIGNAL END OF DATA WITH (*, @. 



See the instructions concerning entering time series data in 
INSTRUCTIONS FOR INPUTTING DATA. Type your first 
observation, after the question mark (separate the TIME and 
Y values with a comma) and press ia;na;l . Another question 
mark will appear. Continue entering observations then type and 
enter @,@ after the last observation. 
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(Now skip to instruction #7) 

• If you entered a T at instruction #2, the Computer will 
reply, 

INSERT DATA TAPE - HIT ENTER ? _ 

Load the data tape into the cassette recorder (into recorder 
#-1 if you are using a dual cassette system). Be sure the tape 
is rewound and that the recorder controls are set to Play. 
Then press ESH3 . The Computer will begin reading your 
data and the name of the data file will appear on the screen. 
Check the name of the file to be certain that the correct data 
are being read. 

7. If you requested output on the Line Printer, the Computer will 
display 

TURN OH YOUR PR INTER - HIT ENTER ? _ 

Make sure your Printer is turned on then press fSSMM ■ 

8. The Computer will display (and print, if applicable) the time 
series analysis statistics and ask 

•::i=PL0T, 2=PREDICT, 3=STATISTICS, 4=ST0P) WHICH ? - 

You may select any of the options by entering the appropriate 
code. 

• If you enter a I , the Computer will ask 
WANT TREND LINE SHOWN a=VES, 2=N0> ? _ 

Enter a l or a 2. The Computer will draw and label a graph 
(TIME values on the horizontal axis, Y values on the vertical 
axis) and plot the data points. If you wanted the trend line, 
the line will be drawn on the graph at the proper location. 
The Computer will next print the TIME by Y plot (with or 
without the regression line) on the Printer, if applicable, and 
display (for example) 

SALES (KlaOO) BV YEAR . . . HIT ENTER ? _ 

When you have finished viewing the graph, press HffllO • 
The Computer will again reply 

(1=PL0T, 2=PREDICT, STATISTICS, 4=ST0P> WHICH ? _ 
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• If you enter a z, the Computer will display 

ENTER e TO STOP PREDICTING 

VEflR ? _ 

Enter the year for which you want a prediction made. If 
you are using quarterly, monthly, or weekly data, the 
Computer will display 

QUARTER ? _ 

or 
MONTH ? _ 

or 

WEEK ? _ 

Enter the number corresponding to the desired quarter 
(01-04), month (01-12), or week (01-52). The predicted Y 
value will be displayed along with another question mark. 
When you want to stop predicting, enter @ instead of a year. 

NOTE: Predictions made for dates much later than the last 
observation will be inaccurate. Continually updating the 
data file and revising the prediction (trend line) 
equation will help keep this error to a minimum. 

When you have stopped predicting, the Computer will reply 

<1=PL0T, 2=PREDICT, 3=STfiTISTICS, 4=ST0P> WHICH ? _ 

• If you enter a 3, the time series analysis statistics will be 
displayed and the message above will reappear. 

9. Run the program options as many times as you wish, then enter 
a 4 or 5 as appropriate. Remember, the statistics and the plot 
are only printed once on the Line Printer. 



94 



Sample Run 
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Instructions for Inputting Data 

Unlike other ASA data analysis programs, the TIME SERIES 
ANALYSIS programs use data made up of a measure on one variable 
(Y) and a coded value from which the Computer calculates the 
TIME (X) variable for use in the analysis. In order to analyze data 
files consisting of measurements taken by year, quarter, month, week 
or day, a special coding scheme is used. For the analysis results to 
be accurate, your data must conform to the following guidelines. The 
guidelines apply whether you are entering data into the TIME 
SERIES ANALYSIS programs via keyboard or preparing a data file 
with TAPE DATA FILES or DISK DATA FILES (these will ask for 
"data pairs"). 

• Yearly data is the simplest to input. Simply type the year, 
followed by a comma and the measurement on the Y 
variable. Examples for consecutive and spaced years follow: 



Consecutive 


Spaced 


1960,100.5 


? 1950,8 


1961,106.8 


? 1955,4 


1962,110.4 


? 1960,3 


1963,109.3 


? 1965,2 


@,@ 


? 1970,2 




? @,@ 
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Quarterly, monthly, weekly, and daily data contain 
additional information which tells the computer which 
quarter, month, week or day the observation is for. Quarters 
are represented by the numbers .01 through .04, immediately 
following the year and before the comma. Months are 
designated using the values .01 through .12 (for January 
through December), weeks by the values .01 through .52, 
days by . 01 through .99. 

NOTE: No more than 99 consecutive days may be tracked. 
Daily data is used only for Time Series Analysis II. 



Quarterly Data 


Monthly Data 


Weekly Data 


Daily Data 


1958.02,10 


? 1963.10,1 


? 1977.50,-5 


? 1968.97,12.2 


1958.03,12 


? 1963. 11,2 


? 1977.51,-3.6 


? 1968.98,14.6 


1958.04,11.5 


? 1963.12,2 


? 1977.52,-2.1 


? 1968.99,15.1 


1959.01,16 


? 1964.01,3 


? 1978.01,-3 


? @,@ 


1959.02, 18.2 


? 1964.02,5 


? 1978.02,-5 




@,@ 


? @,@ 


? @,@ 





The origin (first observation) may be any quarter, month, 
week, or day in a year. However, the observations must be 
consecutive. If you are missing a measurement for one of the 
periods, you can still run the program by inserting as the Y 
variable, the average of the measurements for the 
observations immediately before and after the missing one. 
For example: 

Observations Input to Program 

June 1976 Y=106 ? 1976. 06, 106 

July 1976 datamissing ? 1976.07,107.5 

August 1976 Y=109 ? 1976.08,109 

If you make a mistake while preparing a data file on tape or 
disk, either terminate the program (by pressing 1:1:1*11 a ) or, 
if you have already entered a large amount of data, enter @,@ 
to save the portion of the data file which is correct. Then run 
the utility program over again to update the file containing 
the mistake. Remove the incorrect data element (pair) plus 
any data elements which follow. Then add the rest of your 
data to the file. This procedure is necessary because time 
series data (observations) must always be in sequence. 



98 



Many users will want to continually update their files by 
adding new observations daily, weekly, monthly, etc. This is 
easily done since new data elements are always written at the 
end of the old data. Additionally, if only a certain amount of 
data is kept in the updated file (e.g., data for the last 36 
months) the earliest element(s) can be removed during each 
file update. 

Messages and Special Considerations 

file not found in 700 means that the data file referenced at 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly or failed to insert the diskette containing 
the data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your 
diskette. Enter KILL "SCRATCH/ASA". The Computer will 
either remove the file or display file not found. 

NOTE: Do not run DESCRIPTIVE STATISTICS, HISTO- 
GRAM or FREQUENCY DISTRIBUTION on the TIME (X) 

variable in a time series data file. The values are not regular 
interval scale measurements. 

NOTE: The sign test for trend considers only the direction of 
the movement from one period of time to the next — not the 
magnitude of change. In some instances (e.g., many large 
upward movements and an equal number of small downward 
movements) the presence of trend may not be disclosed by 
the test. Additionally, if there are several small changes in the 
data which are cancelled by a few large changes in the 
opposite direction (i.e., no actual trend) the test may indicate 
a trend where none exists. Evaluate the test for trend by 
comparing the Z value with a visual inspection of the TIME 
by Y plot. The critical value of Z at the 5% level of 
confidence is 1.96. 

NOTE: The X axis on the data plot represents the TIME 

variable. The TIME variable begins at (origin) and increases 
by one for each succeeding time interval or observation. In 
order to most easily find the point on the X axis correspond- 
ing to a particular year, quarter, month, or week, run the 
PREDICT option - the value of the TIME variable is 
displayed for any time interval input. 
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Time Series Analysis II 

Description of the Program 

This program is used to obtain seasonal indexes for quarterly or 
monthly time series data and n-item moving averages for data 
collected yearly, quarterly, monthly, weekly, or daily. Quarterly and 
monthly seasonal indexes are calculated using the ratio to moving 
averages method with an adjustment for rounding error. The largest 
and smallest values for each quarter or month are discarded before 
the index is derived. All even-item moving averages are automatically 
centered by taking a 2-item moving total before averaging. The 
resulting centered moving averages are printed next to the later time 
interval values. 

Features 

• Input from keyboard or data file (tape or disk) 

• Number of items comprising the moving average selected by 
user 

• Automatic centering of even-item moving averages 

• Output can be listed on a Line Printer 

Limitations 

• Quarterly, monthly, weekly, and daily data must be 
consecutive. 

• Missing values must be handled according to the instructions 
for entering time series data (page 106). 

• Maximum data set sizes (approximate) 

16K Level II BASIC - 825 observations 
16K DISK BASIC - 140 observations 
32K Level II BASIC - 2150 observations 
32K DISK BASIC - 1450 observations 

How to Run Time Series Analysis II 



1 . Load the program into the TRS-80. Type RUN and press 33 . 
The Computer will ask 

HOW WILL DATA BE ENTERED - <K)EVB0flRD <T>flPE OR 0»ISK 
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2. Enter a K, T or D according to the type of input device you 
will be using. 

If you enter a D, the Computer will ask for the name of the 
data file on disk. You must enter the exact file name including 
the extension and password, if applicable (explained in your 
TRSDOS/D1SK BASIC Manual). 

Instruction #8 contains further information concerning your 
response to the above question. 

The Computer will display 

<S>AS0NAL INDEXES OR <M>0VING AVERAGES - WHICH ? _ 

3. Enter an $ if you have quarterly or monthly data and are 
running the program to obtain seasonal indexes. If you want 
moving averages, enter an M. 

Depending on whether you enter an : <|; or an. !& the Computer 
will respond either 

(QUARTERLY, <M)ONTHLV - WHICH ? _ 

or 
<V> EARLY, >: QUARTERLY, (M)ONTHLY.. <W)EEKLV, <D)flILV - WHICH 

4. Enter a Y if you have yearly data, a Q for quarterly, etc. 

• If you are obtaining seasonal indexes skip to instruction #6. 

• If you are running the program for moving averages the 
Computer will ask (for example) 

MOVING AVERAGE FOR HOW MANY MONTHS ? _ 

5. Enter the number of years, quarters, months, weeks, or days 
which will comprise the moving average. For example, for a 12 
month moving average enter a 1 2. 

6. The Computer will reply 

DISPLAY RESULTS ON LINE PRINTER - <V)ES OR <N)0 ? _ 

7. Enter a Y if you have a Line Printer and desire a permanent 
record of the program results. Otherwise enter an N. 
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8. The Computer's next action depends on your response at 
instruction #2 (input device). 

• If you entered a D at instruction #2, skip to instruction #9. 

• If you entered a K at instruction #2, the Computer will reply 

BEGIN ENTERING VOUR QSERVRTIONS (SEE MfiNURLX 
SIGNAL END OF DATA WITH §, C". 

See the instructions concerning entering time series data in 
INSTRUCTIONS FOR INPUTTING DATA. Type your first 
observation, after the question ma rk (sepa rate the TIME and 
Y values with a comma) and press HJESD- Another question 
mark will appear. Continue entering observations; then type 
and enter @,@ after the last observation. 

(Now skip to instruction #9) 

• If you entered a T at instruction #2, the Computer will reply 

INSERT DfiTfi TfiPE - HIT ENTER ? _ 

Load the data tape into the cassette recorder (into recorder 
#-1 if you are using a dual cassette system). Be sure the tape 
is rewound and that the recorder controls are set to Play. 
Then press USB] ■ The Computer will begin reading your 
data and the name of the data file will appear on the screen. 
Check the name of the file to be certain that the correct data 
are being read. 

9. If you requested output on the Line Printer, the Computer will 
display 

TURN ON VOUR PRINTER - HIT ENTER ? _ 

Make sure your Printer is turned on, then press C&EII3- 

1 0. The Computer's next action depends on whether you are 
obtaining seasonal indexes or moving averages. 

• If you are running the program for seasonal indexes, the 
Computer may take quite a while to complete its 
calculations - be patient. The table of indexes, by quarter 
or month, will be displayed on the screen and, if applicable, 
printed on the Line Printer. The Computer will reply 

<N)EW RUN OR <E)ND PROGRAM ? - 
Enter an n or an m as appropriate. 
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• If you are obtaining moving averages, the Computer will 
display the number of items comprising each average, the 
point of origin, and the message 

HIT § TO START & STOP 

Press @. The moving averages by year, quarter, month, 
week, or day will be listed on the screen and, if applicable, 
on the Line Printer. Press @ to stop the listing at any time; 
then press @ again to continue. After all the moving averages 
have been listed, the Computer will display 

<L)IST flGflIN OR <E)ND PROGRAM ? _ 

If you want to view the moving averages again (from the 
beginning), enter an L. Otherwise enter an E. You may 
terminate the program at any point during the listing by 
pressing 03333 • 



Sample Run 
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L-asspe" 




!\ 
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Instructions for Inputting Data 

Unlike other ASA data analysis programs, the TIME SERIES 
ANALYSIS programs use data made up of a measure on one variable 
(Y) and a coded value from which the Computer calculates the TIME 
(X) variable for use in the analysis. In order to analyze data files 
consisting of measurements taken by year, quarter, month, week, or 
day, a special coding scheme is used. For the analysis results to be 
accurate your data must conform to the following guidelines. The 
guidelines apply whether you are entering data into the TIME 
SERIES ANALYSIS programs via keyboard or preparing a data file 
with TAPE DATA FILES or DISK DATA FILES (these will ask for 
"data pairs"). 

• Yearly data is the simplest to input. Simply type the year 
followed by a comma and the measurement on the Y 
variable. Examples for consecutive and spaced years follow: 



Consecutive 


Spaced 


? 1960,100.5 


? 1950,8 


? 1961,106.8 


? 1955,4 


? 1962,110.4 


? 1960,3 


? 1963,109.3 


? 1965,2 


? @,@ 


? 1970,2 




? @,@ 



Quarterly, monthly, weekly, and daily data contain 
additional information which tells the Computer which 
quarter, month, week, or day the observation is for. Quarters 
are represented by the numbers .01 through .04 immediately 
following the year and before the comma. Months are 
designated using the values .01 through .12 (for January 
through December), weeks by the values .01 through .52, 
days by .01 through .99. 

NOTE: No more than 99 consecutive days may be tracked. 
Daily data is used only for Time Series Analysis II. 



Quarterly Data Monthly Data Weekly Data Daily Data 

? 1958.02,10 ? 1963.10,1 ? 1977.50,-5 ? 1968.97,12.2 

? 1958.03,12 ? 1963.11,2 ? 1977.51,-3.6 ? 1968.98,14.6 

? 1958.04,11.5 ? 1963.12,2 ? 1977.52,-2.1 ? 1968.99,15.1 

? 1959.01,16 ? 1964.01,3 ? 1978.01,-3 ? @,@ 

1959.02,18.2 ? 1964.02,5 ? 1978.02,-5 

@,(? ? @,@ ? @,@ 



•> 
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The origin (first observation) may be any quarter, month, 
week, or day in a year. However, the observations must be 
consecutive. If you are missing a measurement for one of the 
periods you can still run the program by inserting as the Y 
variable, the average of the measurements for the 
observations immediately before and after the missing one. 
For example: 

Observations Input to Program 

June 1976 Y=106 ? 1976.06,106 

July 1976 data missing ? 19 76.07,107.5 

August 1976 Y=109 ? 1976.08,109 



If you make a mistake while preparing a data file on tape or 
disk, either terminate the program (by pressing plilfflfl) or, 
if you have already entered a large amount of data, enter 
@,@ to save the portion of the data file which is correct. 
Then run the utility program over again to update the file 
containing the mistake. Remove the incorrect data element 
(pair) plus any data elements which follow. Then add the rest 
of your data to the file. This procedure is necessary because 
time series data (observations) must always be in sequence. 

Many users will want to continually update their files by 
adding new observations daily, weekly, monthly, etc. This is 
easily done since new data elements are always written at the 
end of the old data. Additionally, if only a certain amount of 
data is kept in the updated file (e.g., data for the last 36 
months) the earliest element(s) can be removed during each 
file update. 
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Messages and Special Considerations 



file not found in 700 means that the data file referenced at 
instruction #2 does not exist on disk. You may have entered the 
data file name incorrectly or failed to insert the diskette containing 
the data file into a disk drive. 

FD, BAD FILE DATA and WRONG DATA FILE TYPE all indicate 

a problem in a data file. The tape or disk may contain an ASA data 
file of the wrong type, a data file not prepared for ASA programs, or 
a computer program rather than a data file. 

too little data for seasonals means that after discarding 
the highest and lowest monthly or quarterly averages there were no 
observations left on which to base the indexes. You need at least 
three years of quarterly or monthly data for seasonal indexes — more 
are recommended. 

NOTE (DISK BASIC ONLY): If the program ends prematurely, 
a temporary scratch file may have been left on your diskette. 
Enter KILL "SCRATCH/ASA". The Computer will either 
remove the file or display file not found. 

NOTE: Do not run DESCRIPTIVE STATISTICS, HISTO- 
GRAM or FREQUENCY DISTRIBUTION on the TIME (X) 
variable in a time series data file. The values are not regular 
interval scale measurements. 
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Chi Square Analysis 

Description of the Program 

This program performs a chi square test on data in the form of a 
contingency table. The table may have any dimensions from 1 X 2 to 
8X8. Output includes the number of rows and columns in the 
contingency table, total number of observations, number of expected 
frequencies less than five, chi square, degrees of freedom, and 
probability of chance. Additionally, tables of observed and expected 
frequencies can be displayed. 

Features 

• Expected frequencies may be input by the user or computed 
automatically from marginal totals 

• Correction for continuity automatically applied to tests 
involving a single degree of freedom 

• Estimate of exact chance probability 

• Line Printer output formatted at 8V2" x 11" 

Limitations 

• Maximum of 8 rows and 8 columns 

• If user does not enter expected values for contingency tables 
with one row or one column, equal expected frequencies will 
be assumed 

How to Run Chi Square 

1. Load the program into the TRS-80. Type run and press QZEQO. 
The Computer will reply 

HOW MANY ROWS IN CONTINGENCY TABLE Cl-8> ? _ 

2. Enter the number of rows in your chi square design. The 
Computer will ask 

HOW MANY COLUMNS IN CONTINGENCY TABLE <±-E» ? _ 

3. Input the number of columns and hit l*i?U*;i . The Computer 
will display 

EXPECTED FREQUENCIES CALCULATED BY - COOMPUTER OR <U)SER 
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4. If you want to input expected frequencies based on previous 
knowledge, research findings, etc. enter a u, otherwise enter a 
c. 

Further information concerning your response to this question 
is contained in instruction #6. 

The Computer will reply 

DISPLAY RESULTS ON LINE PRINTER - (V)ES OR (N)0 ? - 

5. Enter a Y if you have a Printer and want a permanent record of 
the chi square results. Otherwise enter anM. The Computer will 
display 

ENTER THE OBSERVED FREQUENCV FOR CELL: 

ROW 1 

COLUMN i ? _ 

6. Enter the observed frequency data value for Row 1 , Column 1, 
in the contingency table. The Computer will ask for the 
observed frequency for Row 1, Column 2. After all the data for 
Row 1 have been entered, the Computer will request the data 
for Row 2, etc. 

• If you entered a c at instruction #4, skip to instruction #8. 

• If you entered a/tl at instruction #4, the Computer will reply 

ENTER THE EXPECTED FREQUENCV FOR CELL: 

ROW 1 

COLUMN 1 ? _ 

7. Enter the expected frequency data value for Row 1 , Column 1 , 
in the contingency table. The Computer will ask for the 
expected frequency for Row 1, Column 2. After all the data for 
Row 1 have been entered, the Computer will request the data 
for Row 2, etc. 

8. The Computer will display 

COMPUTER HT WORK - PLEASE BE PATIENT 

9. If you requested output on the Line Printer, the following 
message will appear 

TURN ON VOUR PRINTER - HIT ENTER ? _ 
Turn your Printer on and press Q2H3D 
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10. The results of the chi square analysis will be displayed on the 
screen and, if applicable, the results including the observed and 
expected frequency contingency tables will be printed on the 
Line Printer. 

The Computer will display 

(OBSERVED TABLE, (E)XPECTED TABLE, <C)HI SQUARE RESULTS 

1 1 . Enter an o to obtain the contingency table of observed 
frequencies, an e to view the expected frequency table, or a C 
to see the chi square results again. The chi square results and 
contingency tables are printed on the Line Printer only once, 
but these items may be displayed on the Video Monitor over 
and over by entering the appropriate letter code. 

To end the program press BESS • 



Sample Ron 




in 



m 



m 



i ■'■ * 
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Messages and Special Considerations 



EXPECTED FREQUENCY IN LAST CELL WAS LESS THAN 5. is 

simply a reminder that there are certain statistical considerations 
involving expected frequencies less than five. Consult a statistics 
textbook. 

NOTE: YATES' CORRECTION FOR CONTINUITY WAS APPLIED. 

The data are corrected for continuity whenever there is only one 
degree of freedom in the chi square analysis. 

NOTE; Degrees of freedom for the chi square test is (ROWS-1) 
X (COLUMNS- 1). When there is only one row or one column 
in the contingency table, the degrees of freedom become 
zero. In order to avoid possible algorithmic problems, the 
program will change that single row or column's contribution 
to the degrees of freedom formula from zero to one (a 
standard procedure). 
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Appendix 



APPENDIX A 

Advanced Statistical Analysis Data File Structure 

Cassette Tape 

Record 1 

The first record in every ASA tape data file consists of a number 
indicating the type of data contained in the file. The file type codes 
are as follows: 

1 = single type data 

2 = paired type data 

3 = ANOVA (analysis of variance) type data 

4 = multiple regression type data 

Record 2 

An alphanumeric file name comprises the second record of each data 
file. The name, which is written and read as a string variable, is 
supplied by the user when TAPE DATA FILES is run and is 
displayed on the screen by ASA data analysis programs while the 
data file is read. 

Record 3 

This record is found only in ANOVA and multiple regression files. 
It contains a number from 1 to 5 which indicates either 

• how many groups of data are stored on an ANOVA data file, 

or 

• how many independent variables are stored on each subject's 
record in a multiple regression data file. 

Data Records 

The number of data records contained in an ASA data file depends 
on the size of the data set. Each data record contains exactly eight 
(8) values. Therefore, each data record in a(n) 

• single type file contains 8 data elements 

• paired type file contains 4 data elements (pairs) 

• ANOVA type file contains 8 elements (which may include 
one or more group separation symbols) 
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• multiple regression type file contains the data for one subject 
formatted as follows: 

Position 1 = Dependent variable 
Position 2 = Independent Variable #1 
Position 3 = I.V. #2 (or a * if less than 2 I. V.s) 
Position 4 = I.V. #3 (or a * if less than 3 I. V.s) 
Position 5 = I.V. #4 (or a * if less than 4 I. V.s) 
Position 6 = I.V. #5 (or a * if less than 5 I. V.s) 
Positions 7 and 8 contain stars (*) as fillers 

End of File and End of Group Signals 

The symbol @ is used in ASA tape data files to signal the Computer 
that it has (1) finished reading all of the data in the file or (2) 
finished reading the data for one of the groups in an ANOVA data 
file. That symbol is written on tape between the sets of data 
corresponding to each ANOVA group and at the end of each data file 
on tape. Since the last data value in single, paired, and ANOVA type 
files can fall at any position in a data record, all unused positions in 
that final record are filled with the symbol @. If the last data value 
falls at position 8, filling up the final data record, (or if the file is a 
multiple regression type) another record is written on tape. All eight 
positions in this extra record contain the symbol @. 

On Disk 

Record 1 

The first record in every ASA disk data file consists of the number 
indicating the type of data contained in the file. The file type codes 
are as follows: 

1 = single type data 

2 = paired type data 

3 = ANOVA type data 

4 = multiple regression type data 

Record 2 

This record is found only in ANOVA and multiple regression files. It 
contains a number from 1 to 5 which indicates either 

• how many groups of data are stored on an ANOVA data file 

or 

• how many independent variables are stored on each subject's 
record in a multiple regression data file. 
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Data Records 

Data records on disk each contain one value, are sequential, and 
follow the schemes below depending on the type of data in the file. 

• In single type data files each data record is simply one data 
element. The file terminates with the regular TRS-80 end-of- 
file mark. 

• In paired type data files the first data record contains the X 
value for the first pair - the second record the Y value. Each 
consecutive pair of records contains a pair of data values 
(X,Y). The file terminates with the TRS-80 end-of-file mark. 

• In ANOVA type data files the data for the first group is 
stored one data value per record followed by a record 
containing the group separating symbol (@). Data for each 
succeeding group follows in the same manner. The data for 
the final group in an ANOVA data file is followed by the 
regular TRS-80 end-of-file mark instead of the symbol @. 

• In multiple regression type data files the first data record 
contains the dependent variable for the first subject. That 
subject's independent variables are stored on successive data 
records (one data record per I.V.). Thus, if the user is 
building a data file for a study using 3 independent variables, 
4 data records will be required to store the data for each 
subject. 

Multiple regression type data files are terminated by a set of 
records each containing the symbol @. The number of such 
records is equal to the number of I.V.s plus one. These signal 
records are followed by the regular TRS-80 end-of-file mark. 
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APPENDIX B 

Sample Printouts from Advanced Statistical 
Analysis Programs (TRS-80 Line Printer) 

Sample Printout from Tape Data Files 



LISTING OF DATA FILE 



flNOVH 



ELEMENT 
ELEMENT 
ELEMENT- 
ELEMENT 
ELEMENT- 
ELEMENT 
ELEMENT- 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT- 
ELEMENT 
ELEMEN 
ELEMENT- 
ELEMENT 
ELEMENT 
ELEMENT- 
ELEMENT 



4 



# 
# 
# 
# 

# 5 

# 6 

# 7 

# S 

# 9 

# 10 



11 
12 



14 
15 



T # 16 

# 17 

# 18 



19 
20 
21 



GROUF 
GROUP 
GROUP' 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROl. IP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 
GROUP 



1 
1 



# 
# 
# 1 



# 1 

# 2 

# 2 

# 2 

# £ 

# 2 

# 3 

# 3 

# 3 

# 3 

# 3 



,.'RLUE OF 



10 

9 
1.1 

1.4 



15 
16 
17 
IS 
19 



LISTING OF D A "I " f : l FILE 



ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT 



# 
# 
# 
# 
# 



DV 
10 
2S 
3:0 
40 
50 



SAMPLE FILE 
,■'#1 IV#2 



IV #: 

4 



IV#4 



IV#5 



LISTING OF DATA FILE 



ELEMENT 
ELEMENT 
ELEMENT 
ELEMENT- 
ELEMENT 
ELEMENT- 
ELEMENT 
ELEMENT 
ELEMENT- 
ELEMENT 



PIMPLE 


PAIRED 


>H 1 


A 






VALUE 


OF 




VFlLUE 




69 






160 
ISO 




70 






170 




7'0 






2:00 




7:1 






210 




71 






180 
190 

200 




73 






210 



OF 
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Sample Printout from Disk Data Files 



LISTING OF- DRT'fi FILE: PR I RED/DAT 



ELEMENT # 1. 

ELEMENT # 2 

ELEMENT' # 3 

ELEMENT # 4 

ELEMENT # 5 

ELEMENT # 6 

ELEMENT # 7' 

ELEMENT # 8 

ELEMENT' # 9 

ELEMENT # 10 



L I £ T I N Q F D R T H F I L E : Fl N O V Fl 7 D Fl T 

VRLUE OF 

ELEMENT # 1 GROUP # "I 1 

ELEMENT # 2 GROUP # 1 2 

ELEMENT # 3 GROUP # 1 ": 

ELEMENT # 4 GROUP # 1 4 

ELEMENT # 5 GROUP # 1 5 

ELEMENT # 6 GROUP # 1. 6 

ELEMENT # 7 GROUP # 1 7 

ELEMENT # 8 GROUP #1 8 

ELEMENT # 9 GROUP #1 9 

ELEMENT # 1.0 GROUP # 1. 10 

ELEMENT # 11 GROUP # 1 <B 

ELEMENT # 12 GROUP # 2 11 

ELEMENT # 13 GROUP # 2 12 

ELEMENT # 1.4 GROUP #2 13 

ELEMENT # 1.5 GROUP # 2 14 

ELEMENT # 16 GROUP #2 @ 

ELEMENT # 17 GROUP # 3 IP! 

ELEMENT # 18 GROUP # 3 16 

ELEMENT # 18 GROUP # 3 17 

ELEMENT' # 20 GROUP # 3 18 

ELEMENT # 2:1 GROUP # 3 1.9 



VRLUE 


of' :«: 


VRLUE 


.:.:-: 




160 


88 




180 


7'0 




170 


i"'U 




280 


71 




210 


71 




188 
190 


."'2 




200 


7' 3 




21.0 


74 




205 



OF 



LISTING OF DRTfl FILE: MULR/DRT 









DV 


IV#1 


ELEMENT 


# 


1 


10 


1 


ELEMENT 


# 




20 


2 


ELEMENT- 


# 


3 


30 


3 


ELEMENT 


# 


4 


40 


4 


ELEMENT 


# 


5 


50 


5 



IV#2 IV#3 IV#4 IV#5 
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Sample Printout from Random Sample 

YOUR SAMPLE WILL CONSIST OF MEASUREMENTS 
ON THE 55 DATA ELEMENTS NUMBERED: 



2844 

405S 

5721 

87 07 

9011 

10035 

11115 

13121 

14356 

15270 

16841 

19243 



311 
1214 



4443 



yufa ,- 

10082 

11349 

13516 

14600 

15454 

17870 

19846 



624 
1931 
3:862 
4796 

9155 

10345 

11789 

13624 

15175 

15708 

18636 

19948 



804 

3979 

5029 

7982 

8920 

9442 

10604 

12214 

13809 

15199 

16778 

18645 



Sample Printout from Descriptive Statistics 

D E S C R I P T I V E S T A T I S T I C 



..'ARIABLE: WEIGHT 



SAMPLE SIZE <tt> = 10 



SAMPLE STAT I ST I OS : 



MEAN 






RANGE 



= bW 



..'ARIANCE 



MINIMUM 



160 



;td. de\ 



16. 499 f 



MAXIMUM 



SIS 



UNBIASED ESTIMATES OF POPULATION PARAMETERS: 



/ARIANCE 



3:02. 488 



STD. DEV. 



DATA D I STR I BUT' I ON COEFF I C I ENT: 



;:ewne; 



43B ,-'94 



KURTOSIS 



-1. 88949 
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Sample Printout from Historgram 



T O G R H 



FREQUENCY 
I 

6 + 

I 
I 
I 
I 
I 

5 + 

I 
I 
I 
I 
I 

4 -I- 

I 
I 
I 
I 
I 

3 + 

I 
I 
I 
I 
I 

2 + 

I 
I 
I 
I 
I 

1 +* 

I * 
I * 
I * 



***** 
:+:**** 
** *** 
* :+: :+: :+: * 

* * :+: :+: * 
*:+:*** 
*:+:*** 
***** 
***** 
***** 
***** 
***** 
:+: *:+:** 
***** 
***** 
***** 
***** 

* **:+:* 
***** 

* **** 
***** 

* * * * * 
***** 

H : * * * * 



***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
*** ** 
***** 
***:+:* 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
***** 
* * * * * 
***** 
***** 



46. 



***** 


***** 


***** 


***** 


* * * * * 


***** 


***** 


***** 


***** 


:H:**H:* 


***** 


** *** 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


*****: 


****:+; 


***** 


*****: 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


***** 


* * * * * 


***** 


***** 


1. i e 


4. 7 i 



PERC 
I 
+ 
I 
I 
I 
I 
I 
I 



ENT 



** 
** 
** 

* * 

* * 
** 

* * 
* : -K 

* * 

* * 
** 



15. 



R M P L E 



R U N 
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Sample Printout from Frequency Distribution 

F R E Q U E N C V D I S T R I B U T I N 



D I S T R I B U T I O N O F V Fl R I R B L. E : S R M P L E R U N 



INTERVAL 



FREQUENCY PERCENT CUMULAT I VE 















43. 


000 


TO 




45. 


899 


45. 


900 


TO 




48. 


'?' 3 3 


48. 


S00 


TO 




51. 


ess 


51. 


.MM 


TO 




54. 


■ ,■ i- i 


54. 


i .Ml 1 


TO 




57. 


■4!9!9 


57 


500 


TO 




60. 


■i i 


i-.i i 


400 


TO 




8 3: . 


"■■ r i 


6 3: . 


3:00 


TO 




8 6 . 


±39 


iSfo. 


200 


TO 




(59. 


B99 


69. 


1.00 


TO 




72. 


686 





T 


T 


R 


L. 

















„ 



0. 





0. 





20. 





.-. "1 1 





15. 





1.5. 





1.0. 





1.0. 






5. k) 

1.0. 

10. 

10. 

3:0. 

5@. 

65. O 



1.00. 



100. 
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Sample Printout from Analysis of Variance 



R N R L V S I S OF VARIANCE 



SUMMARV TRBLE 

SOURCE SS DF MS 

TOTAL 2351. 25 28 

BETWEEN 196. 043 3 65. 3477 

WITHIN 2155. 2 17 126. 777 

F-RATIO = 515455 

DEGREES OF FREEDOM = 3 & 17 
PROBABILITY OF CHANCE = 0. 6S1 

GROUP STATISTICS 

GROUP N MEAN S. D. 

TREATMENT R 5 21. 6 7. 79744 

TREATMENT B 6 22 15. 1262 

TREATMENT C 5 20. 8 1@. 3537 

NO TREATMENT 5 14. 4 9. 2087 
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Sample Printout from T-Test 

T - T E S T RE S U L T S 



,'ARIABLE X HEIGHT VARIABLE V: WEIGHT 



MEAN OF X = 71 MERN OF V = 1.90. 5 

S. D. OF X = 1. 73164 S. D. OF V = 16. 4997 

S. E. MEAN = . 577214 S. E. MEAN = 5. 49989 



NUMBER OF PAIRS <H> = 10 



CORRELATION OF X WITH V <R> = 0. 75,: 



DIFFERENCE CMEAN X - MEAN V> = -119. 



DEGREES OF FREEDOM CDF> 



-RATIO FOR THE DIFFERENCE 



PROBABILITY < 1 TAILED TEST!) = 0. 000 
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Sample Printout from Correlation & Linear Regression 

C R R E L R T I O N & L I N E fi R R E Q R E S S I O N 



.■'RRIRBLE X: MRTHEMRTICS VRRIRBLE V: RERDINU 



MERN OF X = 71 MERN OF V = 190. 



D. OF H = 1. 73164 S. D. OF V = 16. 49 
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NUMBER OF PAIRS <N> = 10 



CORRELATION COEFFICIENT <R> = . 7! 



DEGREES OF FREEDOM <DF> = 8 



SLOPE CM? OF REGRESSION LINE = 7. 17005 



INTERCEPT <B> FOR THE LINE = -318. 574 



P L O T 



R 
E 
H 
D 
I 



I 
210. 00+ 
I 
I 
I 
I 
I 
201. 67+ 
I 
I 
I 
I 
1 

I 
I 
I 
I 
I 

185. 00 + 
I 
I 
I 
I 
I 

17' 6. 6?'+ 
I 
I 
I 
I 
I 

168. 33+ 
I 
I 
I 
I 
I 

00 + 
I 



* ** 

** 
** 
** 



** 
** 
t+: ** 
** 
** 
** 

** 
** 
** + 

** 



** 
** 



** 
** 



* ** 

*** 



** 
** 



** 



160. 



20 70. 40 71. 60 

M ft T H E M R T I C 






'4 00 
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Sample Printout from Multiple Linear Regression 



R E Q R E 



I 



N 



H 



COEFFICIENT OF DE TERM I HOT I ON < R SQ > = . •?'':::. 24 7'; 

COEFFICIENT OF MULTIPLE CORRELATION •-- ■■■:', :->4 

STANDARD ERROR OF EST I MATE = . •-'! vn ;, : .. 4 , 

REGRESSION SUM OF SQUARES = bC. 2A2'i: 

RESIDUAL SUM OF' SQUARES = .4;i, :, t;.': 

TOTAL SUM OF SQUARES == f-y.-i. 1 .t-iyi 

F-RRTIO < REGRESSIONS = 16 (■)_-, ;- 

DEGREES OF FREEDOM - '::. i\ h 

PROBFlBILITV OF CHANCE = . fc.u.l. ;-:'..,.. 

NUMBER OF CASES < SUBJECTS > = l.U 

NUMBER OF INDEPENDENT VARIABLES = b 



R E Q R E S S I O N C O E F F I C I E N "I 






name: 



MEAN 



c 


CONSTANT 




I VI 


APTITUDE 


3. 7 


IV 2 


EXPERIENCE 




I V3 


TRAINING 


4. 3 


I V4 


AGE 


4. 3 


I V5 


MOTIVATION 


4. 2 


DV 


PAY RATE 


4. 2 


— ~_ 


— 


- . — 



S 1.4 










JO EFT. 




..:■ ti:> 

7'4:-< 






.... 


L f '*C 


1 1 u: 


C( '■■■; 








■ ■ : , ' , 1. . t -1 


1. IT 


1- =■ ■;::. 






-. 


102 ; ; A 


2. O- 


: .:'-ii -.; 








2: : :l444 


. ._ . 







__ 
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Sample Printout from Time Series Analysis I 



I M E SERIES H N H L V S I 



VEST FOE TREND CZ'J = . 67,3 J-81 TREND LINE EQUATION: 

ORIGIN: 1353 - MONTH 1 
TIME UNIT: 1 MONTH 



'HRIHNCE HO 


CUUN I'ED 


FOR 


!v trend = 


0. 43 ,"■; 




i 

440. 00 + 






1 






I 

1 






J. 

3-'- ! S. Ou+ 






I 






i 






I 






33 :L 00 + 




■*■■ 





i 












304 
L 


MM + 

I 
J. 
1 
I 








+. 






00 + 














l 

I 
I 
i 


:+: 


* 








iie. 


wy+ 






■f- 







I :f:* *:+: :*: 



163 98+ * 

I 

O '. 19 S3 ":OM'h 1 > 53 
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Sample Printout from Time Series Analysis II 



JHRTE.R 



SEASONAL INDEX 



# QUAE: 



J. I 
I I 



i in . , : -i : .i: : : 



MONTH 


JAN. 


FEB. 


MARCH 


APRIL 


MRV 


JUNE 


■JULV 


RUG. 


OCT'. 


NOV. 



SEASONAL INDEX 



# MONTHS USED 



10:4 ':■..>. 4 

'. !::.! .: .: . ^ I '■ ■ ':'■ 

ST 1-4:14._ 
'->'-'. k:l4:4t :: . 



1 2 M O N T H M O V I N Q R V E R R Q E 
ORIGIN = JAN. 1,953: 



JULV 

HUG. 

SEPT. 

OCT. 

NOV. 

DEC. 

JfiN. 

PlHKUri 

APRIL 

HfiV 

JUNE 

•JULV 

HUG. 

SEPT. 

OCT. 

NOV. 

DEC. 

JAN. 

FEB, 

MHRCH 

APRIL 

MAV 

JUNE 

JULV 

AUG. 

SEPT. 

OC I'. 






:i ':'':-. . 

J yj-.4 
:1. :■-'•.-:. 4 

iLTJJ 

:. I. '.:■"... 4 
[.:-<■:• 4 
105 4 
li'54 
1 :■■•''.. 4 
:1 9 MO 

lOOU 

1050 
,ly;.::i 
1:400 

loco 
1. -:''::.'::. 



: i-... 


I.-I4 

4 I 


, u 


jii 


:■ A 


4:: ' ,: 


:o4. 


:-;, 


1 1 1, i 


• 1 :: ■ : 


Td 


::Ti, 


:yi- : ; 


< IJ! 


H4. 


.1 (V 


00. 


lb 


:A4. 


41 


.. 14 


16 



.4 4 O 1. 1: 



::24. \'9.i 



DEC. 

,JHM. 

FEET 

MARCH 

APRIL 



1 ■-.)•-'■• 



J. OUt. 
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rifiv 

JUNE 
■JUL.V 



.:i'hn. 

MARCH 
APRIL 
P'lHV 
JUNE 



V-i- 

i. <:. 



.=:'.iki. 


.itiy 


221 


6. 2: 5 


■:■!. 


,T.L- 




41 7 


!•■■-•. s 


41.7 


./. i> 


, : 'n::> 


,- ■ ■" 


■ i- .1.. , 



24 1 :: 



t GUAR 
3R I Q I N 



I'ER MOVING AVERAGE 
= QUARTER 1 1954 



QUARTER 




1954 


QUARTER 


4 


1.964 


QUARTER 


1 


19 7,5 


QUARTER 




Ll 97,6 


QUARTER 




1955 


QUARTER 


4 


1.955 


QUARTER 


1 


1956 


QUARTER 


2 


.1 9 5 6 


QUARTER 


2 


.1.956 


QUARTER 


4 


±95f-. 


uUHli 1 tR 


1 


1957 


QUARTER 


2 


19 67 


QUARTER 


2 


195 7' 


QUARTER 


4 


IS:.,'' 


QUARTER 


1. 


1.9 '.7:, 


QUARTER 




1.97.8 


QUARTER 


2 


1.959 


QUHR "I'ER 


4 


1956 


QUARTER: 


1. 


■i •■':.., t 


QUARTER 


2 


19 '...9 


QUHR 1 ER 




19:., 9 


QUARTER 


4 


J.. 969 


QUARTER 


1 


196U 


QUARTER 




.1 ::■'(:■« 


QUARTER 


2 


I960 


QUARTER 


4 


1968 


QUARTER 


1 


19L,1 


QUARTER 


.. 


1961. 



1941 



:i 9 ; 6 




1952 




1.992 


7: 


2'U „ 7 


1 


2642 




20 4 U 




20 S3 


1 




_., 


189., 




165:. 


i:! 


1.6., 4 


■■" 


JJT-.E 


t> 


1 ,--49 




17' 5 5 




1V*.. ; 


i. 


17' 41 


l. 


17' 02 


6. 


1717 




1. ,- 2 J 


::.. 


1719 


1 


If. 5 9 
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Sample Printout from Chi Square Analysis 



H I 



Q U R R E R E S U L T 



NUMBER OF ROWS IN C O N T I N Q E N C V T R B L E 
NUMBER OF COLUMNS IN CONTINGENCY TABLE 
TOTRL NUMBER OF OBSERVOTI ONS CALL CELLS > 
NUMBER OF EXPECTED FREQUENCIES LESS THAN 



1 



CHI SQUARE 

DEGREES OF FREEDOM 

PROBABILITY OF CHANCE 



@. 2.S0X 



CONTINGENCY TABLE - OBSERVED FREQUENCIES 





CI. 


Rl. 


1 


R2 


2; 


R3 


3 


R4 


4 


R5 


5 


R6 


S 


R7 


7* 


R8 


© 



CONTINGENCY TABLE - EXPECTED FREQUENCIES 





CI 


Rl 


4. 58 


R2 


4. 5S 


R3 


4. 50 


R4 


4. 56 


R5 


4. 58 


R6 


4. 50 


R7 


4. 50 


RB 


4. 50 
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APPENDIX D 
Program Printouts 



Tape Data Files Program Listing 



5ft flEflP 75*<MEM-888> : DEFSTRZ : [>IH2D< <MEM-880>/3> : B*=" " : DEFINTI-N : NT=6 : DIMLR< 156) 

100 CLS:PRINTTAB<15);"T APE DATA FILE S" '.PRINT 

116 PR I NT "THIS PROGRAM IS BEING RUN TO:" : PR I NT" (FOREPARE H NEW DATA FILE" 

120 PRINT" (U)PDATE AN OLD DATA FILE" 

125 INPUT" (L)IST AN OLD DATA FILE ";ZR 

130 PRINT : I FZR="L" INPUT "LIST DATA FILE ON LINE PRINTER - <V>ES OR <N>0 " .; Z I : GOTO1800 

140 PRINT"F0R WHICH PROGRAM "; : IF2R="U" PRINT" WERE THE DATA"; :GOTO160 

158 PRINT"WILL THE DATA BE"; 

160 PRINT" PREPARED: "-.PRINT" 1 = DESCRIP. STAT. / FREGt DISTR. /HISTOGRAM" 

170 PRINT" 2 = CORR. & LIN. REGR. ,•-' MATCHED PRS. / TIME SERIES" 

ISO PRINT" 3 = ANALYSIS OF VARIANCE" : INPUT" 4 = MULTIPLE REGRESSION ";MT 

192 MF=MT:IFMT=3MF=1 

195 IFMT=4MF=8 

196 I FZR= " L " G0T01035 

198 I FZR= " P " GOSUB8000 : GOTO200O 

200 PRINT: INPUT "HOW MfiNV DATA ELEMENTS ARE TO BE REMOVED "; IR: IFIR=8GOTO1000 

218 CLS:PRINT"LIST THE DATA ELEMENTS TO BE REMOVED. " 

228 PRINT :FORL=lTOIR:INPUTLR(L):NEKTL 

1000 CLS: INPUT "INSERT DATA TAPE - SET TO "PLAV" - HIT ENTER "; A$ 

1818 GOSUB5080: PRINT: PRINT" DflTfl FILE BEING READ = ":■ ZO: PRINT : IFZR="L"MT=IT :G0T0192 

1820 IFMT=ITGOTO1048 

1030 PR I NT "WRONG DATA FILE TVPE" : PRINT : END 

1835 G0SUB9588 

1840 K=l : M=8 : MA=1 : IFMT=3INPUT#-i, MA 

1058 IFMT=4INPUT#-i, IV: IV=IV+i 

1868 GOSUB6880 : JJ=0 : F0RJ=iT08 : J J=J J+l : IFZ< J)="§"H<K)=M+JJ-1 : JL= J : GOSUB7088 : J J==0 : K=K+i 

1878 I FK>MA : PR I NT : GOTO1580 

1888 NT=NT+l:ZD<NT)=Z<J):NEKTJ:M=M+8 

1898 IFMT=3M=M-JL 

1895 G0T01868 

1500 I FZR= " L " GOTO10888 

1585 IFIR=0GOTO1548 

1518 MG=1 : MS=N<1)+1 : JE=8 : F0RJ=1T0NTSTEPMF : JE=JE+1 : IFJE>MSG0T01525 

1515 F0RK=1T0IR: IFLR<K)=JEGOTO1530 

1528 NEXTK:NEKTJ:GOTO1540 

1525 MG=MG+i : MS=MS+N(MG)+1 : IFMG=MAMS=MS-1 

1528 G0T01515 

1530 IK=IK+l:FORI=J+MFTONT:ZD<IH1F)=ZD<I>:HEXTI:NT=NT-MF:J=J--MF:N<MG)=N<MG)--l:NEKTJ 

1548 PRINT"HUMBER OF DATA ELEMENTS REMOVED =";IK:PRINT 

1545 NP=NT : IFMT=3NP=NT-MA+1 
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Tape Data Files (continued) 

1550 PR I NT "NEW DATA COUNT ="; NP/MF; "DATA ELEMENTS. " 

1555 IFMT=3PRINT"<DATA FOR RLL GROUPS COMBINED)" 

1570 PRINT: INPUT "DO VOU WANT TO ADD ANV NEW DATA ELEMENTS -- <V)ES OR <N;«0 "; A$: IFH$="N"GOTO3S00 

1580 B$=" NEW " 

2000 CLS : ONMTGOTO2010.. 2110.. 2360, 2210 

2010 PR I NT "BEG IN ENTERING VOUR"; B$; "DATA ELEMENTS. " 

2020 PRINT"SIGNAL END OF"; Bf; "DATA WITH @. ": PRINT 

2030 I NPUTZX : I FZX= " © " GOTO30O0 

2040 NT=NT+1 : ZD<NT)=ZX : GOTO2O30 

2110 PR I NT "BEG IN ENTERING VOUR"; B$; "DATA PAIRS (X, V). " 

2120 PRINT"SIGNfiL END OF"; B$; "DATA WITH ©, §. ": PRINT 

2130 I NPUTZX, ZV : I FZX= " @ " GOTO30O0 

2140 ZD<NT+1>=ZX : ZD(NT+2)=ZV : NT=NT+2 : G0T02130 

2210 PR I NT "BEG IN ENTERING VOUR"; B*; "DATA. 

2220 PRINT"SIGNAL END OF"; B$; "DATA BY ENTERING >? FOR THE DV VALUE. ": PRINT 

2230 NS=NT/8+l :NT=NT+1: PR I NT "SUBJECT"; NS; ":": INPUT" DV "; ZX: IFZX="9"NT=NT--i:GOTO3000 

2235 ZD(HT)=ZX 

2240 FORL=lTOIV-l:NT=NT+l: PRINT" IV"; L; : INPUTZD(NT) :NEXTL: PRINT 

2250 F0RJ=IV+1T08 : NT=NT+1 : ZD(NT)="*" : NEXT J : G0T02230 

2300 I F ZR= " U "GOT 02569 

2319 F0RK=1T0MA:CLS:PRINT"BEGIN ENTERING THE DATA FOR GROUP #";K 

2320 PRINT"SIGNAL END OF DATA WITH @. ": PRINT 
2330 I NPUTZX : I FZX= " i? " G0T02359 
2340 NT=NT+1:ZD(NT)=ZX:GOTO2330 
2350 NT=NT+1 : ZD<NT>="@" : NEXTK : GOTO3000 
2500 CLS : K=l : NS=0 

2516 PR I NT "NUMBER OF NEW DATA ELEMENTS FOR GROUP #"; K; : INPUTNN 
2520 NS=NS+N<KH1 : IFNN=9K=K+1 : IFK>MATHEN3090ELSE2510 
2530 I FK=MANS=NS-1 : G0T02550 

2540 FOR I =NTT0NSSTEP-1 : ZD < I +NN ) =ZD < I ) : NEXT I 

2550 PRINT :PRINT"BEGIN ENTERING THE NEW DATA FOR GROUP #"; K: PRINT 

2560 F0RJ=NST0NS+NN-1 : INPUTZD< J) : NEXT J : N(K)=N<K)+NN : NT=NT+NN : NS=NS+NN 

2570 CLS: PRINT "NEW DATA COUNT FOR GROUP #"; K; "="; N(K) : PRINT :K=K+i: IFK<=MAG0T02516 

3000 NP=NT:IFMT=3NP=NT -MA :IFZR="U"NP=NP+1: INPUT "HIT ENTER TO CONTINUE "; A* 

3003 CLS: PR INT "NEW DATA COUNT ="; NP/MF; "DATA ELEMENTS. " : IFMT=3PRINT"(ALL GROUPS COMBINED)" 

3065 PRINT: INPUT "NAME FOR THE NEW DATA FILE ";ZN:PRINT 

3O10 INPUT" INSERT A BLANK TAPE - SET TO -'RECORD-' - HIT ENTER ";fl* 

3020 PRINT :PRINT"WRITING DATA TO TAPE. ": PRINT #-i, MT :PRINf#-l, ZN 

3022 IFMT=3PRINT#-1, MA 

3025 I FMT=4 1 V= I V-l : PR I NT#-1, I V 

3030 F0RI=1T08:ZD<NT+I >="§" :NEXTI : I = INKNT/8+l> 

3040 K=0:F0RJ=1T0I :Zl=ZD(K+i) :Z2=ZD<K+2> :Z3=ZD<K+3) :Z4=ZD(K+4) 

3056 Z5=ZD<K+5) :Z6=ZD<K+6) :Z7=ZD<K+7) :Z8=ZD<K+8> :GOSUB9000:K=K+8 :NEXTJ: PRINT : END 

5000 INPUT*-!, IT : INPUT#-1, ZO : RETURN 

6000 INPUT#-1, Z<1>, Z<2>, ZO, Z<4), Z<5>, Z<6>, Z<7>, Z(8) : RETURN 

7000 NF -N ( K > XMF : I FMT=3PR I NT " GROUP " ; K; " : " ; 

7010 PR I NT "NUMBER OF DATA ELEMENTS READ FROM TAPE ="; NP:M=0: RETURN 

8000 PRINT: I FMT=3 INPUT "HOW MANV GROUPS (2 TO 5 ONLY) "; MA: IFMAO5THEN8020ELSE8080 

8010 IFMT=4 INPUT "HOW MANV INDEPENDENT VARIABLES <1 TO 5 ONLV) ",1V- IV=IV+1: IFIV<=6THEN8020ELSE8«fiM 

8020 RETURN 

9000 PRINT#-1, Zl, Z2, Z3, Z4, Z5, Z6, Z7, Z8 : RETURN 
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Tape Data Files (continued) 

9568 C*="S INGLE" : IFMT=2C*="PfiIRED" :G0T0988e 

3660 I FMT=3C$= " ANQVA " : G0T03868 

97@8 IFMT=4C*="MULT. REGR. " 

9888 F'RIHT ! 'OflTfl FILE TYPE = "; Cf: PRINT: RETURN 

9988 F0RJ=iT0188 : C*= I NKEV$ : IFC$="9"G0Tu9928 

9918 NEKTJ: RETURN 

9928 C$= I NKEV* : I FC*= " @ " THEN9938ELSE3928 

9938 RETURN 

10880 IFZI="V"PRINT ,1 TURN ON VOUR PRINTER - "; 

18005 INPUT "HIT ENTER TO BEGIN LISTING ";C* 

1008? IFZI="V"FuRI=iT08:LPRINr' ":NEXTI :LPRINTCHR*<29>; "LISTING OF DATA FILE: ".; ZO:LPRINT" " 

18818 CLS : ONMTGOTO10868, 18878, 18888, 18188 

18868 PRINT,, "VALUE OF X" : IFZI="V"LPRINT, , "VALUE OF X" 

10078 FORK=lTONT : I FZ I = " V " LPR I NT " ELEMENT # " ; K ■ , 2D < K > 

10075 PR I NT " ELEMENT # " ; K, , ZD < K ) : GOSUB9908 : NEXTK : GOTO18580 

18878 PRINT, .."VALUE OF X", "VALUE OF V" : IFZI="V"LPRIHL , "VALUE OF X", "VALUE OF V" 

10880 F0RK=1T0NTSTEP2:IFZI="¥"LPRINT"ELEMENT #".; (K+D/2, , ZD(K), ZD(K+1) 

18085 PRINT"ELEMENT #"; (K+DX2, , ZD(K>, ZD(K+1) :G0SUB9988: NEXTK :GOTO10508 

10888 PRINT, , "VALUE OF X" : IFZI="V"LPRINT, , "VALUE OF X" 

10098 KL=1 :FORK=lTONT: I F2I="V"LPRINT" ELEMENT t ! UK, "GROUP #"; KL, ZD<K> 

18895 PRINT"ELEMENT #";K, "GROUP #".; KL, ZD(t() :G0SUB9988: IFZD':K)="§"KL=KL+i 

18188 NEXTK : GOTO18580 

18188 PRINTTAB(14); "DV IV#1 IV#2 IV#i IV#4 IV#5" 

10109 IFZI="V"LPRINTTflB<14)i "DV IVM IV#2 IV#3 IV#4 IV#5" 

10110 F0RK=1T0NTSTEP8 

18115 IFZI="V"LPRINT"ELEMENT #"; <K+7>/8; :F0RM=8T05:LPRINTTAB(14+M*8); ZD(K+M); :NtXTH:L.PRINT" " 
18128 PRINT"ELEMENT #".; <K+7V8; :FORM=0TO5:PRINTTAEK14+M*8>.; ZD<K+M>; :NEXTM:PRINT" ": GOSUB3308 : NEXTK 
18580 PRINT: INPUT" (L) 1ST DATA AGAIN OR <E)ND PROGRAM ":■ C$. IFC*="L"THEN10818ELstEND 
58800 INPUT#-1, A$, B$, C* : PRINTA* : PRINTS* : PR I NT C* 
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58 DEFSTRZ:B$=" " :DEFINTI-N:DIMLR<158> :D$="0LD" 

180 CLS:PRINTTfiB(15);"D 1SK DATA FILE S":PR1NT 

118 PRINT"THIS PROGRAM IS BEING RUN T0:":PRINT" (P)REPfiRE A NEW DATfi FILE" 

120 PRINT" <U)PDATE AN OLD DATA FILE" 

125 INPUT" CDIST AN OLD DATA FILE "; ZR: IFZR="P"G0T0i28 

126 PRINT: INPUT "WHAT IS THE NAME OF THE OLD DATA FILE "; ZN: IFZR="L"G0T0138 

127 PRINT: INPUT" (S)AVE OLD FILE OR <R>EMOVE OLD FILE FROM DISK ";ZK 

128 D*="NEW" : IFZR="U"D*="UPDflTED" 

129 PRINT -.PRINT "WHAT WILL BE THE NAME OF THE ";D*; : INPUT" DATA FILE "i ZM 
139 PRINT: IFZR="L"INPUT"LIST DATA FILE ON LINE PRINTER - WES OR (N)O "; ZI :GOTO1000 
14U CLS:PRINT"FOR WHICH PROGRAM "; : IFZR="U"PRINT"WERE THE DATA"; :G0T0168 
150 PR I NT "WILL THE DATA BE"; 

ISO PRINT" PREPARED: ": PRINT" 1 = DESCRIP. STAT. / FREQ. DISTR. / HISTOGRAM" 
170 PRINT" 2 = CORR. & LIN. REGR. / MATCHED PRS. / TIME SERIES" 

ISO PRINT" 3 = ANALYSIS OF VARIANCE" : INPUT" 4 = MULTIPLE REGRESSION ";MT 
198 IFZR="P"GOSUB8000 : GOTO2086 

288 PRINT : INPUT "HOW MANV DATA ELEMENTS ARE TO BE REMOVED "; IR: IFIR=0GOTOi800 
210 CLS:PRINT"LIST THE DATA ELEMENTS TO BE REMOVED. " 
228 PRINT : FORL=lTOIR : INPUTLR(L) : NEK fL 
1868 CLS:OPEN"I",i, ZN 

1810 INPUT*!, IT:PRINT"DATA FILE BEING READ = ".; ZN:PRINT: IFZR="L"MT=IT:QOTO1035 
1020 IFMT=ITGOTO1040 

1838 PR I NT "WRONG DATA FILE TVPE" : PRINT : END 
1035 60SUB9588 

1848 MA=1 : IFMT=3INPUT#1, MA : IT=MA 
1845 MF=MT : IFMT=3MF=1 

1058 I FMT=4 1 NPUT#1, I V : I T= I V : MF= I V+l 

1500 K=l : I FZR= " L " G0T01510 

1505 0PEN"0",2.. "SCRATCH/ASA":GOSUB8830:JE=8:K=1 

1518 JE=JE+1: JR=0:FORKK=1TOIR: IFLR<KK>OJEG0T01514 

1512 JR=1:KR=KR+1 

1514 NEXTKK : FORLL=iTOMF : INPUTfrL ZK: IFZKO"§"G0T01522 

1516 I FMT=4GOSUB7080 : JE= JE-1 : G0T01548 

1518 GOSUB7000:K=K+1:N<K)=-1 

1522 N(K)=N(K)+1:IF<JR=0)AND(ZR="U")PRINT#2, ZK 

1523 IFEuF(i)GOSUB7000:GOTul540 

1524 NEXTLL : G0T01518 

1548 IFZR="L"THEN10000ELSEPRINT:PRINT"NUMBER OF DATA ELEMENTS REMOVED = ";KS: PRINT 

1545 ND=JE-KS: IFMT=3ND=ND-MA+i 

1550 PRINT"NEW DATA COUNT =".ND;"DATA ELEMENTS. " 

1555 IFMT=3PRINT"(DATA FOR ALL GROUPS COMBINED)" : PRINT :GOTO2000 

1578 PRINT : INPUT "DO VOU WANT TO ADD ANY NEW DATA ELEMENTS - (Y)ES OR <N)0 "t A$: IFfl*= ,, V"Bt=" NEW " 

2088 JE=ND : CLOSE : I FZK= " R " K I L.LZN 

2082 OPEN"I", 1, "SCRATCH/ASA" : OPEN" 0", 2, ZM: IFMT=3GOTO23O0 

2804 INPUTtt, ZX:PRINT#2, ZK: IFEOF<1)THEN2085ELSE2884 

2605 I Ffi$= " N " 60T03888 

2886 CLS : 0NHTG0T02818.. 2118, 2388, 2210 

2010 PRINT "BEGIN ENTERING YOUR"; B*, "DATA ELEMENTS. " 

2028 PRINT"SIGNAL END OF"; B$; "DATA WITH <?. ": PRINT 

2030 INPUTZK: IFZ;K="i?"GOTO3808 

2840 JE=JE+1 : PRINT#2, ZK : GOTO2030 
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2118 PRINT" BEGIN ENTERING YOUR"; B*; "DRTfi PAIRS <X,V). " 
2126 PRINT "SIGNAL END OF"; B*; "DATA WITH §, @. "'.PRINT 
2138 INPUTZX, ZV: IFZX="e"GOTO3000 

2149 PRINT#2, ZX : PRINT#2, ZV : JE=JE+1 : G0T02130 

2210 PRINT"BEGIN ENTERING YOUR"; B$; "DflTfl. 

2228 PRINT'SIGNfiL END OF"; B'l; "DflTfl BV ENTERING @ FOR THE DV VALUE. "'.PRINT 

2230 JE=JE+1:PRINT"SUBJECT";JE;":":INPUT" DV "; ZX: IFZX="@"JE=JE-1 :GOTO3006 

2235 PRINT#2, ZX 

2240 FORL=lTOIV:NT=NT+l: PRINT" IV"; u : INPUTZX :PRINT#2, ZX:NEXTL: PRINT :6OTO2230 

2300 IFZR="U"GOTO2500 

231@ F0RK=lT0Mfl:CLS:PRINT"BE6IN ENTERING THE DflTfl FOR GROUP #";K 

2320 PRINT"SIGHRL END OF DflTfl WITH V. ":PRINT 

2330 INPUTZX: IFZX="0"GOTO2350 

234M JE=JE+i : PRINT#2, ZX : G0T02330 

2350 IFK=MfiTHEN3000ELSEPRINT#2, "§":NEXTK 

2580 K=l : INPUT#1, ZX : PRINT#2, ZX : INPUTM, ZX : PRINT#2, ZX 

2538 F0RJ=1T0N(K) : INPUTM, ZX:PRIHT#2, ZX:NEXTJ 

2540 PRINT"NEW DflTfl FOR GROUP"; K;"- <Y)ES OR <N)0 "; : INPUTZX: IFZX="Y"CLS:GOTO2550 

2545 I FK=MATHEN2570ELSE I NPUTM, ZX : PR I NT#2, ZX : 60T02570 

2550 CLS:PRINT"BEGIH ENTERING THE NEW DflTfl FOR GROUP #".;« 

2555 PRINT "SIGNAL END OF NEW DflTfl WITH §. ":PRINT 

2560 INPUTZX:IFZXO"@"PRINT#2, ZX:N(K)=N(K)+i:JE=JE+l:GOTO2560 

2565 I FK=HfiTHEN2570ELSE INPUTM, ZX : PRIMT#2, ZX 

2578 CLS:PRINT"NEW DflTfl COUNT FOR GROUP #"; K; "="; N(K) : PRINT :K=K+1: IFK<=HfiGOTO25i0 

2600 INPUT "HIT ENTER TO CONTINUE ";C$ 

3000 CLS:PRINT"NEW DflTfl COUNT ="; JE; "DflTfl ELEMENTS. " : IFMT=3PRINT"<flLL GROUPS COMBINED)" 

3025 IFMT=4F0RJ=1T0MF : PRINT#2, "0" ; NEXT J 

3050 CLOSE : I FZR= " U " K I LL " SCRflTCH/flSft " 

3060 PRINT: PR I NT "NEW FILE IS NflHED: ", ZM: PRINT : END 

7080 NP=N < K ) /MF ; N < K ) =N < K ) -KR : KS=KS+KR : I FMT=3PR I NT " GROUP 'UK;' 1 : " ; : KR=8 

7010 PR I NT "NUMBER OF DflTfl ELEMENTS READ FROM DISK =";NP: RETURN 

8000 PRINT: IFHT=3INPUT"H0W MANY GROUPS (2 TO 5 ONLY) "; Mfl: IT=Mfl: IFMfl<=5THEN8020ELSE8000 

8010 IFMT=4INPUT"H0W MANY INDEPENDENT VARIABLES <1 TO 5 ONLY) "; IV: IT=IV: IFIVO5THEN8020ELSE8000 

8020 OPEN"0",2, ZM 

8030 PRINT#2, MT : IFMT>2PRINT#2, IT 

8050 RETURN 

9500 C$= "SINGLE" : IFMT=2C*="PFlIRED" :G0T09868 

9606 IFMT=3C$="ftN0Vfl" :GOTO98O0 

9700 IFMT=4C$="MULT. REGR. " 

9800 PRINT "DflTfl FILE TYPE = "; C*: PR I NT: RETURN 

9980 FORJ=1TO100 : Ct= I NKEV$ : I FC*= " " GQTO9920 

9910 NEXT J : RETURN 

9320 C$= I NKE V* : I FC$= " @ " THEN3330ELSE9920 

9930 RETURN 

10000 CLOSE:PRINT:IFZI="Y"PRINT"TURN ON YOUR PRINTER - "; 

10005 INPUT "HIT ENTER TO BEGIN LISTING "; C*:GOTO18700 

10007 IFZI="V"F0RI=1T08:LPRINT" ": NEXT I :LPRIHTCHR*(23); "LISTING OF DATA FILE: "; ZN:LPRINT" " 

10010 CIS : K=l : ONMT6OTO10068.. 18678. 10088.. 18198 

10068 PRINT, , "VALUE OF X" : IFZI="Y"LPRINT, , "VALUE OF X" 

10870 INPUTS'!, ZX : IFZI="V"LPRINT"ELEMENT #"; K, , ZX 

18075 PR I NT " ELEMENT ft " ; K, , ZX : GOSUB99O0 : K=K+1 : 1 FEOF < 1 ) THEN10500ELSE10076 
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:IFZI="V"LPRINT, .."VRLUE OF X" 
16080 INPUT#1, ZX : INPUT*!, ZV : IFZI=" VLPRIN.T "ELEMENT #"; K, , ZX, ZV 
10985 PR I NT " ELEMENT # " ; K, , ZX, ZV : G0SUB9988 : K=K+1 : 1 F EOF < 1 ) THEN10500ELSE10880 
10088 KL=1: PRINT,, "VRLUE OF X" : IFZI="Y"LPRINT, , "VALUE OF X" 
10098 INPUT*!, ZX:IFZI = "V"LPRINT"ELEMENT #"; K, "GROUP #";KL, ZX 
18095 PRINT"ELEMENT #"; K, "GROUP #"; KL, ZX : G0SUB9988 : IFZX="@"KL=KL+1 
18180 K=K+1 : IFEOF'::i)THENi0500ELSE18898 

10188 PRINTTfiB<14>; "DV IV#1 IV#2 IV#3 IV#4 IV#5" 
18189 IFZI="¥"LPRINTTHB<14>, "DV IV#1 IV#2 IV#3 IV#4 IV#5" 
10118 FORJ=0TOMF-1 : INPUT*!, ZX: IFZX="§"GOTO10508 
10115 IFJ=0PRINT"ELEMENT #"; K; : IFZI="V"LPRINT"ELEMENT #";K; 
18128 PRINTTfiB<14+J*8>; ZX; : IFZI="V"LPRINTTR8<!4+J+8>; ZX; 
18125 NEXTJ :K=K+1: PRINT :IFZI="V"LPRINT" " 
18158 GOTO10118 

10500 PRINT: INPUT" a) 1ST DATA AGAIN OR <E)ND PROGRAM "; C$ 
18608 CLOSE: IFC$="E"END 

10700 OPEN" I ", 1, ZN : INPUT*!, ZX : IFMT>2INPUT#1, ZX 
10800 GOTO10007 
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188 CLS: PRINT :PRINTTAB<i9>, "R R N D M S H (1 P L t" 

185 RANDOM :DEFINTA-Z:DIMA<2285> 

118 PRINT: INPUT "WHAT IS THE TOTAL POPULATION SIZE ";N 

128 PRINT: INPUT "WHAT SIZE SAMPLE DO YOU DESIRE ";M 

128 PR I NT: PR I NT "SAMPLING PROCEDURES AVAILABLE:" 

148 PRINTTAB<6>; "1-SAHPLIN6 WITH REPLACEMENT" 

158 PRINTTA6<6>; "2=SAMPLING WITHOUT REPLACEMENT WHICH "; : INPUTA 

155 PRINT :INPUT"LIST SAMPLE DATA ELEMENT NUMBERS ON PRINTER - <V)ES OR (N)O M$ 

168 K=8: PR I NT: PR I NT "COMPUTER AT WORK - PLEASE BE PATIENT. " 

165 fl<l>=RND<N):K=K+l 

178 IFK=MTHEN245 

188 F=RND(N) 

185 FORJ=1TOK:IFFOA(J)THEN218 

198 0NAG0T0218.. 188 

218 IFF<A(J>THEN238 

228 NEXTJ : A < K+l ) =F : G0T0248 

238 Z=J : FORL=KTOJSTEP-l : A(L+i)=A<L) : NEXTL : A(Z)=F 

248 K=K+i:GOTO170 

245 IFI$="Y"CLS:INPUT"TURN ON VOUR PRINTER - HIT ENTER "jfi*:F0RL=lT08:LPRINT" ":NEXTL 

258 CLS: PR I NT; PR I NT "VOUR SAMPLE WILL CONSIST OF MEASURE"; 

260 PRINT"MENTS ON THE"; Mi "DATA" 

278 PRINTELEMENTS NUMBERED :": K=l 

275 IFI*= ,, V"LPRINTCHR$<29)iTflB<7)"V0UR SAMPLE WILL CONSIST OF MEASUREMENTS" 

276 IFI$="Y"LPRINTTAB(18)"0N THE"; M; "DATA ELEMENTS NUMBERED: " :LPR I NT" ":L=1 
288 FOR I =KTOM : K= I : I FK>MTHEN388 

285 PRINTFKD, 

287 IFI*="V"LPRINTA<I), :L=L+1: IFL=5LPRINT" ":L=1 

290 IFI/48=INT(I/48)THEN216 

308 NEXT I 

381 IFI*="V"LPRINT" ":LPRINT" " 

382 PRINT: PR I NT "SELECT ANOTHER SAMPLE - (V)ES OR <N)0 ".; 
385 INPUTA* :IFA*="V"RUN 

387 G0T0999 

318 INPUT"HIT ENTER TO CONTINUE THE LIST "i A$:K=K+1:G0T0288 

999 NEXTP 
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5 CLEAR158 

10 CIS : DEFDBLfi-H, 0- V : DEF I NT I -N : DEFSTRZ : N=8 ; J=0 ; MT=1 

12 0NERR0RG0T015 : IM=2 : CHD"T" : CLOSE : 001029 

15 1M=1 : D I riX( MEM/8-100) : RESUME28 

26 PRINTTHBO); "D E S C R I P T I V E S T A T I S T I C S": PR INT 

25 ONERRORGOTO0 

38 PRINT"H0W WILL DflTR BE ENTERED - ".; 

49 INPUT" (K)EVBOHRD <T)flPE OR (D)ISK ".; ZI : IFZIO"D"G0T047 

45 PRINT: INPUT "WHAT IS THE NRME OF YOUR DATA FILE ";ZN 

4? IFZI="K"GGT063 

48 PR I NT :MF=1:MG=1:MA=1: INPUT "SPECIAL INPUT FILE TVPE - (V)ES OR <N)0 ";ZT: IFZT="N"GGT06: 

43 PRINT :PRINT"WHICH TVPE < -^CORRELATION / MATCHED PAIRS T / TIME SERIES.." 

58 INPUT" 2-ANALYSIS OF VARIANCE, ^MULTIPLE REGRESSION) "; MF :MT=MF+1 

51 PRINT : 0NMFG0T052, 52, 54 

52 INPUT "WHICH VARIABLE <1=X, 2=V) ".; MG : MF=2 : G0T063 

53 K=l: INPUT "WHICH GROUP <1 - 5 ONLV) "; MA:MF=1:G0T063 

54 INPUT "WHICH VARIABLE >;0=DV, l=IV#i, 2=IV#2 . . . 5=IV#5) "; HG : MG=MG+1 : HF=8 

63 PRINT: INPUT "WHAT IS THE NRME OF VOUR VARIABLE ".; ZV 

64 PRINT: INPUT "D I SPLRV RESULTS ON LINE PRINTER - <V)ES OR (N)0 ";Z0 

65 10=1 :IFZO="V" 10=2 

78 II=1:IFZI="T"II=2 

75 IFZI="D"II=3 

76 CLS : PRINT : ONI IG0T077, 156, 580 

77 I F I M=2THEN0PEN " " , 1, " SCRATCH/ASH " 

79 PRINT"BEGIN ENTERING VOUR DATA. " 

80 PRINT "SIGNAL END OF DATA WITH § (AT SVMBOL). ".PRINT 
98 I NPUTZ : I FZ= " @ " G0T0128 

95 ONIMGOTO180, 118 

188 X < N+ 1 ) =VRL i Z ) : N= N+ 1 : G0T090 

110 X=VAL<Z) : PRINT*!, X : N=N+1 : G0T090 

120 IFIM=1G0T0138 

125 CLOSE 

138 PRINT:PRINT"END OF DflTfl - "; N; " VALUES WERE ENTERED. ":GOTO500 

150 INPUT" INSERT DATA TAPE - HIT ENTER ";ZI 

155 IFIM=2THEN 0PEN"0",1, "SCRATCH/ ASA" 

160 I NPUT #-1, IT: I NPUT#~1, ZO : PR I NT 

170 PR INT "DflTfl FILE BEING READ = "; ZO: IFIT=MTG0T0185 

180 PR I NT: PR I NT "WRONG DATA FILE TVPE. " .PRINT :GOTO5008 

185 IF<MT=3)0R(MT=4)INPUT#-i, IT 

186 IF<MT=3)AND(MA>IT)PRINT:PRINT"THERE ARE ONLV"; IT "GROUPS! " :G0T05888 

187 IF(MT=4)AND<MG>IT+1)PRINT:PRINT"THERE ARE ONLV"; IT; "INDEPENDENT VARIABLES! " ;GOTO5800 

188 IFII=3G0Tu782 

198 INPUTtt-1, Z(l), Z<2), Z(3), Z<4), Z(5), Z<6), Z(7), Z(8) : IFMA>1GOTO205 
193 F0RJ=MGT08STEPMF : I FZ < J ) = : " § " G0T0230 

196 N=N+1:0NIMG0T0199, 202 

199 X(N)=VAL(Z< J) ) : NEXTJ : G0T0190 

282 X=VAL<Z< J) ) : PRINT#1, X : NEXT J : G0T0198 
285 F0RJ=1T08:IFZ(J)="@"K=K+1 
288 IFK=HAG0T0214 
211 NEXTJ:G0T0198 
214 MA=1: IFJ=8GOTO190 
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215 F0RK=J+1T08: IFZ<K)="§"GOTO230 

216 N=N+1:0NIHG0T0217, 226 

21? X ( N ) =VftL ( Z ( K ) ) : NEXTK : G0T0190 

226 K=VRL<Z(K) ) : PRINTfrl, X : NEXTK : Q0T0196 

238 IFIM=2 CLOSE 

235 PRINT : PRINTS "DftTR VfiLUES WERE READ, ": 0010560 

325 GOT 0506 

356 SH=SH+K( J) : SS=SS+X< J>[ 2 : RETURN 

360 SM=S?1+X : SS=SS+XE 2: RETURN 

3?h N=N+1 : SM=SM+X : SS=SS+XC 2 : RETURN 

458 I FSGO@THENS3=S3+ < X < J > ~RV ) E 3 : S4=S4+ < X ( J ) -fiV ) C 4 

452 IFX<JXVLTHENVL=X<J> 

454 IFX<J>>VHTHENVH=X<J> 

456 RETURN 

466 I FSGO0THENS3=S3+ ( X-flV ) C 3 : S4=S4+ ( X-fiV > [ 4 

462 IFX<VLTHENVL=X 

464 IFX>¥HTHEHVH=X 

465 RETURN 

500 SH=6 : SS=6 : I P=i : VH=-1E38 : VL=1E38 ; S3=0 : b4=8 

565 ONIMGOTO510.. 600 

518 F0RJ=iT0N:DNlP60SUE858, 456 

556 NEXT J : GOTO750 

600 ONI IGOTO610, 610, 708 

610 OPEN" I ", 1, "SCRfiTCH/RSfl" : F0RJ=1T0N : INPUTii, X 

620 0NIPG0SUEG68, 468 

658 NEXTJ:G0T0758 

788 OPEN" I ", i, ZN : INPUT#1, IT : IFITOMTGOTO180 

701 1F<MT=3>DR<MT=4)INPUT#1, IT:G0T0186 

762 IFMPi=lG0T0?86 

783 F0RK=lT0Mfl-l 

704 I HPUT#1, Z : I FZO " " GOT0704 

785 NEXTK :GOTO710 

786 F0RJ-1T0MG : INPUTfrl, X : NEXT,! : 0NIPG0SUB378, 468 
707 IFMT=4MF=IT+1 

719 F0RJ=1T0MF ; INPUTfrl, Z: IFZ="@"6OTO?50 

711 IF(MT=2)flND(MG=l)MT==MT : IFE0FCDTHEN758 

712 NE XT J : X=VfiL < Z ) : ON I PG0SUEG78, 468 
715 IF EOF(l) THEN 750 

720 G0T0718 

750 ONIPGOTO808, 868 

886 RV=SM/H:V=<SS--SM[2/N)/<N-1) : IFV08THEN815 

818 SD=SQR(V):G0T082a 

815 SD=0 : V=8 

828 VV=<SS-Sf€ 2/N>/N : IFVV<=8THEN840 

830 SG=SQR(VV>:GOTO850 

848 SG=8 : VV=8 

858 IFIM=2THEN CLOSE 

855 IP=2:GOTO505 

860 I FSGO0SK= < S3/N > XSGC 3 : ST= < < S4XN > X V Vt 2 > -3 

875 IFI0=2CLS : PRINT : INPUT "TURN ON VOUR PRINTER - HIT ENTER 'UP* 

908 CLS:PRINTTRB<9>; "D E S C R I P T I V E STATISTIC b" 
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919 PRINT : PRINT "VARIABLE: ":■ ZV; TAB<35>; "SAMPLE SIZE <N> = ".; N 

915 PR I NT : PR I NT " SAMPLE STAT I ST I CS : " 

926 PRINT" MEAN", "= "; CSNG(AV), " RANGE", "= ".; CSNG(VH-VL) 

930 PR I NT " VAR I ANCE " , " = " .; CSNG < VV ) , " M I N I MUM " , " = " .; CSNG < VL > 

940 PRINT" STD. DEV. ","=".; CSNG^SG), " MAXIMUM", ! '= ".; CSNGCVH) 

950 PR I NT: PR I NT "UNBIASED ESTIMATES OF POPULATION PARAMETERS:" 

960 PRINT" VRRIANCE","= "; CSNGtV), " STD. DEV. ","="; CSNG(SP) 

965 IFSG=0GOTO978 

970 PRINT: PR INT "DATA DISTRIBUTION COEFFICIENTS:" 

972 PRINT" SKEWNESS", "= "> CSNG(SK), " KURTOSIS", "= "; CSNG (ST) 

978 IFIO=2THEN1020 

980 PRINTH960, " WANT TO RUN ANOTHER SET OF DATA - (V)ES OR (N>0 ".; 

985 INPUTZA:IFZA="V"RUN 

999 CLS : GOTO500O 

1020 GOSUB2208 : LPR I NTCHR$ < 29 > .; " " : LPR I NT " " : GOSUB2190 : G0SUB2180 

1030 LPRINTTAB<11)"D ESCRIPTIVE S T A T I S T I C S" 

1035 GOSUB2100 

1048 LPRINT" ":LPRINT" VARIABLE: ".; ZV; TAB>35>J "SAMPLE SIZE <N) = ".;N 

1050 GOSUB2100: LPRINT" ": LPRINT" SAMPLE STATISTICS: " :GOSUB2100 

1066 LPR I NT " MEAN " , " = " ; CSNG <■. fl V ) , " RANGE " , " = " ; CSNG < VH- VL ) : GOSUB210O 

1070 LPR I NT " VAR I ANCE " , " = " .; CSNG < VV ) , " M I N I MUM " , " = " .; CSNG < VL > 

1075 GOSUB2100 

1086 LPRINT" STD. DEV. ", "= ":• CSNG<SG>, " MAXIMUM", "= "; CSNGCv'H) 

1085 GOSUB2100 

1090 LPRINT" ": LPR I NT" UNBIASED ESTIMATES OF POPULATION PARAMETERS:" 

1095 GOSUB2100 

1100 LPRINT" VARIANCE", "= ".;CSNG<V>," STD. DEV. ", "= ".;CSNG<SD> 

1105 GOSUB2100 

1107 I FSG=0LPR I NT " " : LPR I NT " " : GOSUB210O : GOTOIOO 

1110 LPRINT" ": LPR I NT" DATA DISTRIBUTION COEFFICIENTS: " :GOSUB21O0 

1120 LPRINT" SKEWNESS", "= "; CSNG(SK), " KURTOSIS", "= ";CSNG(ST> 

1130 F0RL=1T06 : GOSUB2100 : NEXTL 

1140 GOSUB2200 : LPR I NT " " 

2000 G0T0988 

2100 LPRINT" ": LPR I NT" ": LPR I NT" ": RETURN 

2200 F0RL=1T013 : LPR I NT " ***** " .; : NEXTL : RETURN 

5000 I F I M=2CL0SE : I F 1 1 <>3K ILL" SCRATCH/ASA " 

5010 END 
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5 CLEAR150 : D*= "####. #" 

19 CLS : DEFDBLA-H, 0-V : DEFIHTI-N : DEFSTRZ : N=0 : J=6 : MT=1 : A*="###. #" 
12 0NERR0RG0T015 : IH=2:CMD"T" ; CLOSE : GOTO20 

15 IM=1 : DIMK<MEM/8-190> : RESUME26 

20 PRINTTAB<21>; "H I S T G R fi M" : PRINT 
25 ONERRORGOTO0 

20 PR INT "HOW WILL DATA BE ENTERED - "; :GNIMG0T046, 40 

40 INPUT" (iOEVBOARD (DhF'E OR (D)ISK "; ZI : IFZIO"D"G0T04? 

45 PRINT: INPUT "WHAT IS THE NAME OF VOUR DATA FILL ",ZN:G0T047 

46 INPUT" (K)EVBOARD OR <T>APE ";ZI 

47 IFZI="K"G0T063 

48 PR I NT :MF=i:MG=l:MA=l: INPUT "SPECIAL INPUT FILE TVPE - <V)ES OK (N>0 ":■ ZT : IFZT="N"G0TG62 

49 PR I NT: PR I NT "WHICH TYPE <l=CORRELATION / MATCHED PAIRS T / TIME SERIES," 

58 INPUT" 2-ANALVSIS OF VARIANCE, 2=MULTIPLE REGRESSION) ".; MF:MT=MF+l 

51 PRINT -.ONMFGOT 052, 53, 54 

52 INPUT"WHICH VARIABLE <i=X, 2=V> "; MG:HF=2:G0T063 

52 K=i: INPUT "WHICH GROUP <1 - 5 ONLV) " ; MA : MF=1 : G0T063 

54 INPUT "WHICH VARIABLE <0=DV, 1=IV#1, 2=IV#2 . . . 5=IV#5> "i MG:MG=MG+1:MF=8 

63 PRINT: INPUT "WHAT IS THE NAME OF VOUR VARIABLE ";2V 

70 II=1:IFZI="T"II=2 

75 IF2I="D U II=3 

76 CLS : PRINT: ONI IG0T077, 150, 500 

77 IFIM=2THEN0PEN"0",i, "SCRATCH/ASA" 

79 PR I NT "BEG IN ENTERING VOUR DATA. " 

80 PRINT "SIGNAL END OF DATA WITH @ (AT SYMBOL). ":PRINT 
90 INPUTZ:IFZ="e"GOTO120 

95 ONIMGOTO10O, 119 

160 K<N+1)=VAL<Z) : N=N+1 : G0T090 

HO X=VAL<Z> :PRINT#1, X:N=N+1:GOTO90 

120 IFIM=1GOTO130 

125 CLOSE 

120 PR I NT: PR I NT "END OF DATA - "; N; "VALUES WERE ENTERED. ":GOTO500 

150 INPUT" INSERT DATA TAPE - SET TO PLAV - HIT ENTER ";ZI 

155 IFIM=2THEN OPEN"0", 1, "SCRATCH/ASA" 

160 I NPUT#-1, I T : I NPUT#-1, ZO : PR I NT 

170 PRINT"DATA FILE BEING READ = "; ZO: IFIT=MTG0T0185 

180 PRINT: PR I NT "WRONG DATA FILE TVPE. ": PRINT :GOTO50O0 

185 IF(MT=3)0R(MT=4)INPUT#-1, IT 

186 IF<MT=3)AND01A>IT)PRINT: PRINT "THERE ARE ONLV"; IT; "GROUPS! " :GOTO5000 

187 IF<MT=4)AND<MG>IT+1>PRINT:PRINT"THERE ARE ONLV"; IT; "INDEPENDENT VARIABLES! " :GOTO500O 

188 IFII=3GOTO702 

190 INPUT #-1, Z(i), Z<2), Z<3), Z<4), Z(5), 2(6), Z<7), Z(8> : IFMA>1G0T0205 

192 F0RJ=MGT08STEPMF : I FZ ( J ) = " " G0T0220 

196 N=N+1 : ON I M60T0199, 202 

199 X < N ) = V AL < Z < J ) ) : NEXT J : G0T0190 

202 X=VAL<2(J)):PRINT#1, X:NEXTJ:G0T0190 

205 FORJ=1TO8:IF2<J)="0"K=K+1 

208 IFK=MAG0T0214 

211 NEXTJ-.GOTO190 

214 MA=i: IFJ=8GuTO190 

215 F0RK=J+1T08: IFZ(K)="@"GOTO230 
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216 N=N+1 : ONI MGGT 0217, 228 

217 X ( N > = V AL < Z < K > > : NEXTK : G0TQ198 

22@ X=VAL<Z<K>> :PRINT#i, X : NEKTK : GOT 0196 

236 IFIM=2 CLOSE 

235 PRINT : PRINTN.; "DflTfl VALUES WERE READ. ":G0T0588 

325 GOTO500 

35@ 1FX<JXVLTHENVL=X<J> 

355 1FX(J)>VHTHENVH=K(J> 

366 RETURN 

365 N=N+i 

378 IFX<VLTHENVL=X 

375 IFX>VHTHENVH=X 

389 RETURN 

450 1 FX < J }>FKJB+±> RETURN 

452 F0RI=JBT01STEP-1 : IFXU>>=H( DTHENLFK I )=LR«.: I )+l : RETURN 

455 NEXT I: RETURN 

460 IFX>H<J8+1)RETURN 

462 FORI=JBTOiSTEP-i : IFX>=A< I >THENLFK I >=LA< I )+l : RETURN 

465 NEXT I: RETURN 

508 IP=i:VH=~lE38:VL=lE38 

585 0NIMG0T0518, 600 

510 F0RJ=1T0N:0NIPG0SUB358, 458 

550 NEXTJ : GOTO750 

600 ONI IG0T0618, 618.. 788 

618 OPEN" I ", 1, "SCRATCH/ASH" : F0RJ=1T0N : INPUTttl, X 

628 ONIPGOSUB370, 468 

658 NEXTJ : G0T0758 

780 OPEN" I ".. 1, ZN : INPUTfrl, IT : IFITOMTG0T0188 

781 I F < MT=3 > OR < MT=4 ) I NPUTfil, I T : G0T0186 
702 IFMA-1GOTO706 

783 F0RK=1T0MR-1 

784 I NPUTil, Z : I FZO " § " G0T0704 

785 NEXTK : GOTO710 

786 F0RJ=1T0MG: INPUTfrl, X: NEXTJ :0NIPG0SUB365, 460 

787 IFMT=4MF=IT+1 

710 F0RJ=1T0MF : INPUT*!, Z : IFZ="§"GOTO750 

711 IF<HT=2>RNEKMG=1>MT=MT : IFE0F<1)THEN758 

712 NEXTJ : X=VAL < Z > : OH I PG0SUB365, 468 
715 IF EOF(l) THEN 750 

728 G0T0718 

758 ON I PGOT 0788, 1488 

788 CLS 

888 PRINTTRB<10)j "NUMBER OF DATA ELEMENTS = ";N 

1250 PRINTTAB<18); "MINIMUM DATA VALUE = "; VL 

1260 PR I NTT AB( 18).; "MAXIMUM DATA VALUE = ".; VH 

1276 PRINT: INPUT "HOW MflNV INTERVALS FOR HISTOGRAM <1 THROUGH 8) ".; JB 

1275 I F < JB<1 )0R ( JB>8 ) THEN888ELSE2888 

1288 CLS : F0RI=3T041 : SETQ2, I ) : NEXTI : F0RI=13T0118 : SETu, 41) : NEXT I 

1290 FOR I =41T03STEP-1 : SET (118, I ) ; NEXT I : R=VH-VL : I FC$= " U " G0T01318 

1388 FORJ=iTuJB:H(J^=R/JB*(J-i)+VL: NEXTJ :A(JB-M)=VH 

1318 FOR I =1T0 JB : JT= I NT < A U > *18 ) : A ( I ) = JT/18 : NEXT I 
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Histogram (continued) 



it tt . 



1326 L=894:F0RJ=1T0JB+1:L=L+6:PRINT§L, ""; :PRINTUSINGD$; A<J>; : NEXTJ 

1336 IFIH=2THENCL0SE 

1356 IF-2 : FORI-iTOJB : LAC I >=8 : NEXT I : GOT 0585 

1400 KK=S:F0RJ=1T0JB: IFLR(J)>KKTHENKK=LH<J) 

1465 NEXTJ :1FKK>=66OTU1430 

1410 CIS: PRINT -.PRINT "ONE INTERVAL MUST CONTAIN RT LEAST 6 VALUES. " 

1428 PRINT"TR¥ FEWER INTERVALS - YOU TRIED"; JB; "LAST TIME. ": PRINT :Q0T0888 

1438 LX=1: IFKK/3=INT<KK/3>THENLX=0 

1478 I =1 : F I =6 : H=6 : FOR J=832T064STEP~128 : PR I NTC" J, H; 

1488 Fi = INT':<FI+KK/6)*i8)/10; 1 = 1+1 :L2(I) = INT<FI)+LK:H=L2(I> :NEXTJ 

1485 L2'::i)=8:F2(l)=0:I=l:T=KK/N:H=8:FORJ=888TO120STEP-192:PRINT@J, ""; :PRINTUSINGfi*; H; 

1488 H=INT(I+(T/4)*i008+, 5)/18: 1=1+1 :F2<D=H:NEXTJ 

1490 PRINT88, "FREQUENCY"; TRB<22>; "H I S T G R A M"; TAB<57>; "PERCENT"; 

1520 L=14 : F0RI=1T0JB : F0RJ=LT0L+18 : IFLA< I >=8THEN1588 

1538 FORLV=48TO40-LA<D/KK*36STEP-i:SET«: J, LV) :NEXTL¥: NEXTJ 

1580 L=L+12:NEXTI 

1598 PRINT&962, " (N)EW INTERVALS, (P)RINT HISTOGRAM, OR <E)ND PROGRAM "; 

1595 PRINT0956, ""; : INPUTB*: IFB*="N"THEN788 

1598 I FB*» " P " THEN2051ELSE5888 

1619 G0T01598 

2088 PRINT :INPUT"LIMITS SET BV - CLOSER OR (OOMPUTER "; C#: IFC$="C"THEN1280ELSEPRINT§384, 
2916 H<0)=-1E38:FORI=1TOJB:PRINT"WHHT IS THE LOWER LIMIT FOR INTERVAL. #"; I; : INPUTfld) 

2826 I FH < I ) <=ft ( I -1 ) THEN2838ELSENEXT I : G0T02858 

2838 PRINT: PRINT "LIMITS MUST BE IN ORDER! - START OVER: " :G0T02818 

2858 INPUT "WHAT IS THE TOP LIMIT FOR THE HISTOGRAM "; R<J6+1> :SM=R<1> :G0T01288 

2851 PRINT0975, "TURN ON YOUR PRINTER - HIT ENTER"; :PRINT@956, "", : INF'UTB$:G0SUB7888 

2852 FORJ=1TO3:GOSUB6000: NEXTJ :LZ=4:MZ=7:LC=7:LR=8:LPRINTCHRt'::29>;TAB(21); "H I S T G R A M" 
2854 LPRINT" " :LPRINT"FREQUENC¥"; TAB<54>; "PERCENT" 

2060 MC=5 : L J=8 : F0RJ=3T048 : L 1=7 : LJ=LJ+1 : L2=LZ+i : MZ=MZ+1 

2888 IFLZ=6LPRINTTflB(2);L2(LC>; :LPRINTTfiB<7>; "+".; :LC=LC-i:LZ=8:G0T02i88 

2898 LPRINTTAB(7); "I"; 

2180 KT=8 : F0RL-14T0188STEP2 : L I =L I +1 

2118 IFPOINT<L, J)=-1THENKT=KT+1:IFKK6LPRINTTAB(LD; "*"; 

2115 IFKT=6THENKT=8 

2128 NEXTL: IFMZ=9LPRINTTREK56>; "+"; :LPRINTUSINGR$, F2(MC) : MC=MC-1 : MZ=8 : G0T02148 

2138 LPRINTTRB(56);"I" 

2148 NEXTJ 

2588 LPRINTTAB(7)""; :F0RK=1T018: LPRINT" ".; :NEXTK: LPRINT" " 

2688 LPRINTTAB<5); ""; :F0RJ=1T0JB+1:LPRINTUSINGD$; A<J); : NEXTJ 

2780 LPRINT" ":LL=LEN<lZV>: LPRINT" " :LPRINTTAB<6+<46-2*LL>/2>; " "; 

2800 F0RJ=1T0LL.LPRINTMID*<ZV, J,l>; :LPRINT" "; :NEXTJ 

2908 F0RJ-1T04 : GGSUB6880 : NEXTJ : G0SUB7888 : G0T01598 

5888 I F I M=2CL0SE : I F 1 1 <>3K I LL " SCRATCH/ASA" 

5818 END 

6088 F0RJF-1T03: LPRINT" " : NEXT JF: RETURN 

7888 F0RL=1T013: LPRINT"*****"; : NEXTL: LPRINT" " : RETURN 
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5 CLERR158 : B$= "#####": G*= "###.#" 

18 CLS : DEFOBLR-H, G-V : DEFINTI-N : DEFSTRZ : N=@ : J=8 : MT-i : fi$="######. ###" : DIMfl(il) 

12 ONERRORGOT015 : IM=2 : CMD"T" : CLOSE : G0T028 

15 I M=l : D I MX < MEM/8-100 > : RESUME20 

28 PRINTTRB<8>; "F R E Q U E N C V DISTRI B U T I N" : PRINT 

25 0NERR0RG0T00 

30 PR I NT "HOW WILL DflTfl BE ENTERED- - "; :0NIMG0T046, 40 

40 INPUT" (K)EVBOFiRD <T>RPE OR <D)ISK "; ZI : IFZIO n D"G0T047 

45 PRINT: INPUT "WHAT IS THE NAME OF VOUR DATA FILE ";ZN:G0T047 

46 INPUT" <K)EVBOARD OR <T>APE "j 21 

47 IFZI="K"G0T063 

48 PR I NT :MF=1:MG=1:MR=1: INPUT "SPECIAL INPUT FILE TVPE - <¥>ES OR (N>0 "; ZT : IFZT="N"G0T063 

49 PRINT :PRINT"WHICH TVPE <l=CORRELATION / MATCHED PAIRS T / TIME SERIES," 

56 INPUT" 2=ANALVSIS OF VARIANCE, 3=MULTIPLE REGRESSION) "; MF:MT=MF+i 

51 PRINT : 0NMFG0T052, 53, 54 

52 INPUT "WHICH VARIABLE (1=X, 2=V> "; MG:MF=2:G0T063 

53 K=l: INPUT "WHICH GROUP <1 - 5 ONLV) "; MA:MF=1 :G0T063 

54 INPUT "WHICH VARIABLE <0=DV, 1=IV#1, 2=IV#2 . . . 5=IV#5> " ; MG : MG=MG+i : MF=8 
63 PRINT: INPUT "WHAT IS THE NAME OF VOUR VARIABLE "; 2V 

70 II=1:IFZI="T"II=2 

75 IFZI="D"II=3 

76 CLS : PR I NT : ON 1 1 G0T077, 158, 580 

77 I F I M=2THEN0PEN " " , 1, " SCRATCH/ASA " 

79 PR I NT "BEG IN ENTERING VOUR DATA. " 

80 PRINT"SIGNAL END OF DATA WITH 8 <AT SYMBOL). ": PRINT 
98 I NPUTZ : I FZ= " 8 " G0T0128 

95 0NIMG0T0188, 118 

188 X<N+1)=VAL<2> : N=N+1 : G0T098 

118 X=VAL<Z) :PRINT#1, X : N=N+1 : GOT098 

128 IFIM=1GOTO130 

125 CLOSE 

138 PRINT: PR I NT "END OF DATA - ";N; "VALUES WERE ENTERED. ":G0T0588 

150 INPUT" INSERT DATA TAPE - SET TO F'LRV - HIT ENTER ";ZI 

155 IFIM=2THEN OPEN"0", i, "SCRRTCH/ASA" 

168 I NPUT#-1, I T : I NPUT#-1, ZO : PR I NT 

178 PRINT"DATA FILE BEING READ = "; ZO: IFIT=MTG0T0185 

180 PRINT .PRINT "WRONG DATA FILE TVPE. ": PRINT :GOTO5008 

185 IF<MT=3>0R<MT=4>INPUT#-1, IT 

186 IF<MT=3)flND<MR>IT>PRINT:PRINT"THERE ARE ONLV", IT; "GROUPS! " :G0T05888 

187 IF'::MT=4)AND>;MG>IT+1>PRINT:PRINT"THERE ARE ONLV"; IT; "INDEPENDENT VARIABLES! " :G0T05888 

188 IFII=3G0T0782 

198 INPUT#-1, Z<1>, Z<2), Z(3), Z<4), Z<5>, Z<6), Z<7>, 2<8> : IFMR>1G0T0285 
193 F0RJ=MGT08STEPMF : IFZ< J)="8"G0T0238 

196 N=N+i:0NIMG0T0199, 202 

199 X(N)=VRL<ZCT)> : NEXTJ : G0T0198 

202 X=VAL < Z ( J ) ) : PR I NT#1, X : NEXT J : GOTO190 
205 F0RJ-1T08: IFZ(J)="8"K=K+1 
208 IFK=MRG0T0214 
211 NEXTJ-.GOTO190 

214 MA=1:IFJ=8G0T0198 

215 F0RK=J+1T08: IFZ(K)="8"G0T0238 
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216 N=N+1 : 0NIMG0T0217, 228 

21? X<N>=VAL<Z<K>> : NEXTK :G0T0198 

229 X=VAL<Z<K> > : PRINT*!, X : NEXTK : G0T0198 

236 IFIM=2 CLOSE 

225 PRINT: PR I NTH; "DflTfi VALUES WERE READ. " : GOTO508 

325 GOTO500 

358 IFX<JKVLTHENVL=X<J> 

355 IFX(J»VHTHENVH=X<J> 

368 RETURN 

365 N=N+1 

378 IFX<VLTHENVL=X 

375 IFX>VHTHENVH=X 

380 RETURN 

456 I FX < J > >fl < JB+1 ) RETURN 

452 FORI=JBT01STEP-l : IFX< J)>=fl< I )THENLfl( D=LR< I >+i : RETURN 

455 NEXT I: RETURN 

468 IFX>AUB+1>RETURN 

462 FORI=JBT01STEP--i : IFX>=R< I >THENLA< I >=L.fl( I )+l : RETURN 

465 NEXT I: RETURN 

500 I P=i : VH=-1E38 : VL=1E38 

505 ONir'1G0TO510.. 688 

518 F0RJ-1T0N : ONIPGOSUB350, 450 

550 NEXT J : G0T0758 

688 ONI IG0T0618, 618. 788 

618 OPEN" I ", 1, "SCRATCH/ASA" : FORJ-iTON : INPUTii, X 

628 ONIPGOSUB370, 468 

650 NEXT J : GOTO750 

788 OPEN"!", 1, ZN: INPUTii, IT: IFITOMTG0T0188 

701 IF<MT=3>0Ra'1T=4) INPUTttl, IT : G0T0186 

702 IFMR-1G0T0786 

703 FORK-iTOMA-i 

704 I NPUT#1, Z : I FZO " @ " G0T0784 

705 NEXTK :G0T0718 

786 FORJ=lTOMG : INPUT*!, X : NEXT J : 0NIPG0SUB365, 468 

787 IFMT=4MF=IT+1 

718 FORJ=lTOMF : INPUT*!, Z : IFZ="i?"GOTO750 

711 IF<MT=2>RND<MG=1)MT=MT : IFE0F<1)THEN758 

712 NEXTJ:X=VRL<Z> :0NIPG0SUB365, 468 
715 IF E0F<1> THEN 758 

720 G0T0718 

758 0NIPG0T0788, 1480 

788 CLS 

880 PRINTTRB<10)i "NUMBER OF DATA ELEMENTS = "; N 
1258 PR INTTAEX18}, "MINIMUM DATA VALUE = ";VL 
1268 PR I NT TAB (10); "MAXIMUM DATA VALUE = ";VH 

1270 PRINT: INPUT "HOW MANV INTERVALS FOR DISTRIBUTION (1 THROUGH 18) ".; JB 
1275 I F < JB<1 > OR ( JB>18 ) THEN880ELSE2008 
1290 R=VH- VL : I FC*= " U " GOTO1310 

_1388 FORJ=lTOJB : A( J)=R/JB*CJ-1)+VL : NEXT J : A( JB+1)=VH 
1318 I FC$= " C " FOR I-1TO JB : JT= I NT ( H< I ') *18 ) : A ( I ) = JT/18 : NEXT I 
1328 CLS:PRINTTRB<9).i "F R E Q U E N C V D I S T R I B U T I N" :G0SUB8886 
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1224 PRINTTAEKSO; "INTERVAL"; TAB<28>, "FREQUENCY".; TAB<4i>; "PERCENT"; 

1326 PRINTTflB<5l>; "CUMULATIVE X" :GOSUB8088 

1338 IFIM=2THENCL0SE 

1356 IP=2:F0RI=iT0JB:LH<D : =8:NEXTI :G0T0585 

i486 F3=8 : NT=8 : F0RJ=1T0JB : NT=HT+LA< J> : NEXT J : F0RJ=iT0JB 

1428 PRINTUSINGR$;R<J>; : PRINT" TO"; :A2=fi'; J+D-. 881 : IFJ=JBTHENR2=R<JB-t-i} 

1448 PRINTUSINGfi$;A2; :PRINTTRB<38>; ""; :PRINTUSINGB$; LA<J>; 

1458 IFNTO0THENF2=Lfl(J)/NT*180 

1468 PRINTTH6<43>; ""; :PRINTUSINGG$; F2; :F2=F3+F2 

I486 PRINTTAB<55>; "":■ :PRINTUSINGG$; F3:NEXTJ 

1498 G0T01588 

1528 PR I NT TAB < 13 ;; "TOTAL"; TRBO0>; ""; :PRIN11JSINGB$; NT; :PRINTTAB<45>; " — "; TAB<57>; " — " 

1588 GOSUB8088 

1598 PRlN'ff?962, ! '<N)EW INTERVfiLS, <P)RINT DISTRIBUTION, OR <E)ND PROGRAM "; 

1595 PRINT8956, ""; • INPUT Jf: IFJ$="N"THEN788 

1598 IFJ$="P !, THEN2851ELSE5088 

1618 G0T01598 

2800 PRINT: INPUT"LIHITS SET BV - (U)SER OR (C)OMPUTER ".; Cf : IFC*="C"THEN1298ELSEPRINTtf384, ""; 

2818 R<8>=~iE38:FuRI=iT0J8:PRINT"WHflT IS THE LOWER LIMIT FOR INTERVRL IM; :INPUTfl(I) 

2828 I Ffl ( I X=fi < I -I ) THEN2838ELSENEXT I : G0T02858 

2938 PRINT: PR INT "LIMITS MUST BE IN ORDER! - START OVER : " : G0T02818 

2858 INPUT "WHAT IS THE TOP LIMIT FOR THE DISTRIBUTION "; H(JB+i> :SM=R(1> :GOTO1290 

2051 PRINT§9?5, "TURN ON YOUR PRINTER - HIT ENTER", :PRINT§956, ""; : INPUTS* :GOSUB7080 

2852 FORJ=lTn3:GOSUB6080:NEXTJ:LPRINTCHR$(29)iTRB(18); "F REQUENCV DISTRIBUTI 

2500 GOSUB6088 : J=LEN(ZV) : IFJ>14ZV=LEFT$<ZV, 14 ') : J-14 

2688 I =C 63-26- J >, /2 : LPR I NTT ABC I); "DISTRIBUTION OF VARIABLE: ";ZV:LPRINT" " 

2800 GOSUB9800 : LPR I NT " " 

3808 LPRINTTAEK9); "INTERVAL"; TRB<28); "FREQUENCY"; TflB<41>; "PERCENT"; 

3818 LPRINTTRB(51>, "CUMULATIVE '/." :LPRINT" " : G0SUB9888 : G0SUB6888 

3858 F3=8 : F0RJ=1T0JB : LPRINTUSINGfi$; fl< J); : LPR I NT" TO"; 

3060 A2=H(J+1)-. 8ei:IFJ=JBTHENH2=R(JB+l) 

3878 LPRINTUSINGA*; R2; :LPRINTTBB(38); ""; :LPRINTUSINGB$; LRCJ); 

3888 IFNT<>8THENF2=Lfl<J>/NT*180 

3898 LPRINTThB(43); ""; :LPRINTUSINGG$, F2j :F3=F3+F2 

3188 LPRINTTRB(55); ""; :LPRINTUSINGG$, F3:LPRINT" ":NEXTJ 

3150 LPR I NT" ": LPR I NT" " :GOSUB9808:LPRINT" " 

3288 LPR I NT" ";TAB<9V'T T fl L"; TRB<38); "", :LPRINTUSINGB$; NT; 

3388 LPRINTTRB<43)""; :LPRINTUSINGG$; F3:LPRINT" ,! :GOSUB9000 

3700 F0RJ-1T05 : GGSUB6888 : NEXTJ 

3888 IFJBO18FORI=1TO10-JB:LPRINT" ":LPRINT" ":NEXTI 

3908 GOSUB7000 : G0T01590 

5800 IFIM=2CL0SE: IFII<>3KILL"SCRRTCH/flSfl" 

5010 END 

6888 F0RJF=1T03:LPRINT" ": NEXT JF : RETURN 

7888 F0RL-1T013 : LPR I NT " ***** " .; : NEXTL : LPR I NT " " : RETURN 

8880 F0RI=1T012: PRINT" ".; :NEXTI : PRINT" ": RETURN 

9080 F0RI=1T012:LPRINT" ", :NEKTI :LPRINT" ":RETURN 
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18 CLERR250 : CLS : PRINT : DEFIHTI-N : DEFSTRZ : DEFDBLfl-E, G, H, 0-V : fl*="#. ###" 

12 DEFSNGF : 0HERR0RG0T015 : I M=2 : CMD " T " : CLOSE : G0T028 

15 IM=1:RESUME20 

20 ONERRORGOTOO 

30 GOSUB4000:PRINT"HOW WILL DATA BE ENTERED - "; :0NIMG0T058, 40 

46 INPUT" (K)EVBOflRD, <T)APE, OR <D)ISK ":- ZI : IFZIO"D"G0T068 

45 PRINT :INPUT"WHfiT IS THE NAME OF VOUR DRTfl FILE ";ZN:G0T068 

58 INPUT" <K)EVBOARD OR (T)flPE ".; ZI 

68 PRINT: INPUT "HOW HflNV GROUPS (2 TO 5 ONLY) "; M: PRINT 

62 IF<H<2)0R<H>5)GQT068 

64 FORI=lTOM:PRINT"NRME OF GROUP #M; :INPUTZG<I) 

65 IFLEN<ZG( I ) »14ZG< I )=LEFT$ (ZG( I ), 14) 

68 NEXTI:PRINT: INPUT "DISPLflV RESULTS ON LINE PRINTER - <Y)ES OR CN)0 ";ZO 

78 10=1: IFZO="V" 10=2 
72 II=1:IFZI="T"II=2 

75 IFZI="D"II==3 

76 CLS:K=i:0NIIIG0T079, 188, 208 

79 CLS: PR I NT "BEG IN ENTERING THE DfiTfl FOR GROUP #";K 
88 PRINT "SIGNAL END OF DfiTfl WITH § (AT SYMBOL). " 

98 INPUTZX : IFZX="§"THEN95ELSEG0SUB258 : 60T098 

95 K=K+1:IFK>MTHEN380ELSE79 

188 INPUT" INSERT DRTfl TAPE - SET TO F'LflV - HIT ENTER ";ZI 

118 INPUT#-i, IT : INPUT#-1, ZO : INPUTtt-1, MR : PRINT 

120 PRINT "DfiTfl FILE BEING READ = "; ZO: IFIT=3G0T0148 

138 PR I NT: PR I NT "WRONG DfiTfl FILE TVPE. ": PRINT :G0T03888 

148 I FMOHAPR I NT : PR I NT "THE DfiTfl F I LE CONTfl I NS " ; Mfl; " GROUPS, NOT " ; M : PR I NT : GOTO3000 

158 INPUT#-1, Z(i); Z<2), ZO), Z<4), Z(5), Z<6), Z<7), Z<8) 

168 F0RL=1T08 : ZX=Z < L ) : I FZX= " 8 " THEN178ELSEG0SUB258 : NEXTL : G0T0158 

170 K=K+1 : I FIOMRTHEN308ELSENEXTL : G0T0158 

288 OPEN"I", 1, ZN: INPUTM, IT : IFITO3G0T0138 

218 INPUTttl, MR: IFMAOMTHEN148 

228 INPUT*!, ZX: IFZX="@"THEN238ELSEG0SUB258:G0T0225 

225 I FEOF ( 1 ) THEN388ELSE228 

238 K=K+1 : G0T0228 

258 SX<K)=SX<K)+VfiL<ZX) : SS<K)=SS<K)+VftL<ZX)[ 2 : N<K)=N<K)+1 : NT=NT+1 : RETURN 

388 FORK-iTOH:ST=ST+SX<K) :SQ=SQ+SS(K) :V1=V1+SX<K)C2/N(K) :NEXTK 

318 V2=ST[ 2/NT : BG=V1-V2 : WG=SQ-V1 : F=<BGAM-1) > AWGANT-M) ) 

5@@ qt=f : IFQT=8QX=1 : G0T0880 

520 IFQK1G0T0578 

538 QS=M-1 : QR=NT-M : QZ=QT : G0T0688 

570 QS=NT-M : QR=M-i : QZ-i/QT 

688 QJ=2/9/QS : SK=2/9/QR 

628 QL=fiBS<(l-QK)*QZt (l/3)-l+QJ)/SQR(QK+QZ[ (2/3)+QJ) 

638 I FQRC4G0T0678 

£40 qx=. 5A1+QL+C 196854+QL+<. 115194+QL*(. 888344+QL+. 819527))))[4 

658 G0T0698 

678 QL=QL*<1+. @8*G.LC 4/QRC 3) : G0T0648 

698 IFQT<1QX=1-QX 

888 F0RK=1T0M : fiV<K)=SX<K)/N<K) : SD<K)=SQR< <SS<K)-SX(K)C 2/N<K) ) AN(K)-l) ) : NEXTK 

1808 I FI0=2CLS: INPUT "TURN ON PRINTER - HIT ENTER ";ZI 

1018 CLS : G0SUB4888 : PR I NTTfiB ( 23 ) " SUMMARY TABLE " : GOSUB5000 
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1016 CLS:GOSUB4000:PRINTTAB<23> "SUMMARY TABLE ".GOSUB5000 

1030 PRINT" SOURCE"," SS", " DF", " MS":GQSUB5000:V2=BG+WG 

1050 PRINT" TOTAL", CSNG(V2), NT-1 

1060 PRINT" BETWEEN", CSNG<BG),M-1,CSNG<BG/<M-1>> 

1070 PRINT" WITHIN", CSNG(WG), NT-M,CSNG<WG/<NT-M>> 

1090 GOSUB5008: PRINT :PRINTTAB<16)"F-RATI0 = ";CSNG<F) 

1110 PRIHTTAB<16>; "DEGREES OF FREEDOM = ";M-1;" & ";NT-M 

1120 PRINTTAB<16>; "PROBABILITY OF CHANCE = "; :PRINTUSINGA$;QX 

1125 IFIO=2GOSUB1000O 

1130 PRINT: INPUT" (G)ROUP STATISTICS, <A>NOVA TABLE, OR <E)ND PROGRAM ";ZI 

1140 IF2I="E"GOTO3000 

1150 IFZI="A"GOTO1000 

20O0 CLS:GOSUB4000 

2016 PRIHTTAB<16>; "SUMMARY STATISTICS BY GROUP" 

2030 GOSUB5000:PRINT"GROUP", " N", " MEAN"," S. D. " : GOSUB500O 

2058 FORK=1TOM:PRINTZG<K>, N(K), CSNG(AV<K)), CSNG<SD<K>> : NEXTK : GOSUB5000 : GOT01130 

3000 IFIM=2CL0SE 

3100 END 

4000 PRINTTABC10); "A NALYSIS OF VARIANC E": PRINT: RETURN 

5000 FORL=1T012: PRINT" "j : NEXTL: PR I NT: RETURN 

6000 F0RL=1T013: LPRINT"*****"; : NEXTL: LPRINT" ": RETURN 
7500 F0RL=1T03:LPRINT" ": NEXTL : RETURN 

8000 F0RL=1T012:LPRINT" "j : NEXTL :LPRINT" ":RETURN 

10000 GOSUB6000:GOSUB7500:LPRINTCHR*<29>;" ":LPRINTTAB<10)i "A NALYSIS 

F VARIANCE" 
10100 GOSUB7500:GOSUB7500:LPRINT" ":LPRINTTAB<23)j "SUMMARY TABLE":LPRINT" ":GOSU 



10206 LPRINT" ":LPRINT" SOURCE"," SS", " DF", " MS":LPRINT" H :GOSUB8000 

10300 LPRINT" ": LPRINT" TOTAL", CSNGCV2), NT-1 

10400 LPRINT" ":LPRINT" BETWEEN", CSNG<BG),M-1,CSNG<BG/'<M-1)) 

10500 LPRINT" ":LPRINT" WITHIN", CSNG<WG),NT-M,CSNG<WG/<NT-M>> 

10600 LPRINT" ":GOSUB8000: LPRINT" " 

10700 LPRINTTAB<16>; "F-RATIO = "; CSNG<F) 

10800 LPRINT" ":LPRINTTAB<16>; "DEGREES OF FREEDOM = ";M-i;" & ";NT-M 

10980 LPRINT" ":LPRINTTAB(16)i "PROBABILITY OF CHANCE = "; :LPRINTUSINGA$iQX 

11000 LPRINT" ":GOSUB7500:GOSUB7500:LPRINTTAB<21>; "GROUP STATISTICS": LPRINT" 

11100 GOSUB8000:LPRINT" ":LPRINT"GROUP", " N", " MEAN"," S. D. ":LPRINT" " 

11150 GOSUB8060: LPRINT" " 

11200 FORK=lTOM:LPRINTZG<K), N<K), CSNG<AV<K>>, CSNG<SD<K>> : LPRINT" " .NEXTK 

11300 GOSUB8008 : GOSUB7500 : IFMO5F0RK=lT05-M : LPRINT" " : LPRINT" " : NEXTK 

11400 GOSUB75O0 : GOSUB6O00 : 10=1 : RETURN 
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T-Test for Matched Pairs Program Listing 



5 CLERR158 

18 CLS : PR I NT : N=@ : J=8 : DEFSNGfl-H, 0- W : DEf I NT I -N : DEFDBLX, V : DEFSTRZ 

11 R$= " #. ### " : D I MR < 11 ) : I S=8 : 1 C=@ 

12 0NERR0RG0T015 : IM=2 : CMD"T " : CLOSE : G0T028 
15 I M=l : D I MX ( MEM/8-108 ) ; RESUME28 

28 PRINTTRBQ4); "T - T E S T" :PRINTTRB<21>; "FOR MATCHED PR IRS": PR I NT 

25 0NERR0RG0T08 

38 PR I NT "HOW WILL DfiTR BE ENTERED - "; 

48 INPUT "<K)EVB0RRD <T>RPE OR <D>ISK ".; ZI : IFZK>"D"GOTO60 

45 PRINT: INPUT "WHAT IS THE NAME OF YOUR DfiTR FILE ";ZN:G0T068 

60 PRINT -.INPUT "DISPLAY RESULTS ON LINE PRINTER - <Y>ES OR <N>0 ";ZG 

64 PRINT -.INPUT "WHAT IS THE NAME OF VRRIRBLE X ";ZV: PRINT 

65 INPUT "WHfiT IS THE NAME OF VARIABLE V "; ZU: 10=1: IFZO="V" 10=2 

66 I FLEN < ZU ) >14ZU=LEFT$ < ZU, 14 ) 

67 IFLEN<ZV»14ZV=LEFT*<ZV, 14) 

68 PRINT: INPUT "TEST OF HYPOTHESIS (i=0NE-TAILED, 2=TWQ-TflILED> "; EV:ET=3~EV 
78 II=i:IFZI="T"II=2 

76 CLS : ONI IG0T077, 158, 788 

77 IFIM=2THEN0PEN"U", 1, "SCRATCH/ASA" 

73 PR I NT "BEG IN ENTERING YOUR DATA PAIRS <X,YX 

88 PR I NT "SIGNAL END OF DATA WITH §, @. ": PRINT 

98 I NPUTZ, ZB : I FZ= " @ " G0T0128 

95 0NIMG0T0188, 118 

108 X<N+1)=VRL<Z> : X(N+2>=VflL(ZB> : N=N+2 : G0T098 

118 X=VflL<Z) : V=VAL<ZB> : PRINT#1, X, V : N=N+2 : G0T098 

128 N=N/2: IFIM=ii30T0O8 

125 CLOSE 

138 PR I NT : PR I NTN; " PR IRS WERE ENTERED. ":GOTO500 

150 INPUT" INSERT DATA TAPE - HIT ENTER "j ZI 

155 IFIM=2THEN OPEN"Q", 1, "SCRATCHXASR" 

160 INPUT#-1, IT : INPUT#-1, ZO : PRINT 

178 PR I NT "DATA FILE BEING READ = "; ZO: IFIT=2G0T0198 

ISO PR I NT: PR I NT "WRONG DATA FILE TYPE" -.PRINT :G0T01288 

198 INPUT#-i, Z<1>, Z<2>, Z<3>, Z<4>, Z<5>, Z<6>, Z<7>, Z<8) :0NIMG0T0288, 210 

200 F0RK=1T08: IFZ<K)="@"THEN230 

205 X<N+K>=VAL<Z(K) ) : NEXTK : N=N+8 : GOTOIS'8 

210 F0RK=1T08: IFZ<K>="&"THEN238 

228 PRINTM, Z<K) : NEXTK : N=N+8 : G0T0198 

238 IFIM=2 CLOSE 

235 PRINT :N=<N+K-i>,-'2:PRINTN.; "PAIRS WERE READ. ":GOTO508 

358 X1=X1+X<J):V1=V1+X<J+1>:X2=X2+X<J>[2:V2=Y2+X<J+1)[2:XV=XV+XU)*XU+1) 

368 RETURN 

378 Xl=Xi+X : Y1=Y1+Y : X2=X2+X[ 2 : Y2=Y2+Y[ 2 : N=N+1 : XY=XY+X*Y 

388 RETURN 

508 X1=0 : X2=8 : Yi=8 : Y2=8 : XY=8 : TZ=8 

583 IFIM=2N=8 

505 0NIMG0T0518, 688 

518 F0RJ=1T02*NSTEP2 : G0SUB358 

558 NEXTJ:G0T0818 

600 ONI IGOTO610, 618, 700 
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T-Test for Matched Pairs (continued) 



619 OPEN" I ", 1, "SCRATCH/ASA" : G0T0710 

70S 0PEN"IM,2N:INPUT#1, IT: IFITO2GOTO180 

710 INPUT#1, X,Y:GOSUB370 

715 IF E0F<1) THEN 816 

720 GOTO710 

810 TA=XY-X1+V1/N : TB=X2-Xl*Xi/N ; TC=¥2~¥1E 2/H : TC=V2--Y1C 2/N : TS=SQR<TB/N) : TE=Xi/N 

820 TH=V1/N : TT=SQR C TC/N > : CLS 

840 TB=SQR<TB) :TC=SQR<TC) :R=INT<1068*TfiATB*TC)+. 5 ) /1800 : M=N-1 

843 EX=TS/SQR(N-1) : EV=TT/SQR(N-1) : Q=<TE-TH)/SQR<EX[ 2+EVC 2-2*R*EX*EV> 

850 6OSUB1500:IF-2:IFIO=2PRINT"TURN ON PRINTER - HIT ENTER ".; :INPUTZI:CLS 

900 PRINTTfiB(17); "T-TEST R E S U L T S" 

910 PRINT :PRINTTAEK4),; "VARIABLE X: "; ZV; TABQ3); " VfiRIRBLE V: "; ZU 

920 PRIHTTflB<4)i "MEA'N OF X = ".; TE, " MEAN OF V = 'UTH 

930 PRINTTfiB<4); "S. D. OF X = ";TS, " S. D. OF V = ";TT 

940 PRINTTAB<4); "S. E. OF MEAN = ";EX, " S. E. OF MEAN = ";EV: PRINT 

945 PRINTTAB (12); "NUMBER OF PAIRS <N> = ";N 

950 PR I NTTAB( 12 ), "CORRELATION OF X WITH V <R) = ":■ :PRINTUSINGA$;R:PRINT 

960 PRI NT TAB (12); "DIFFERENCE (MEAN X - MEAN V) = ",;TE-TH 

970 PRINTTAB<12) ; "DEGREES OF FREEDOM (DF) = ".; M 

980 PRINTTAB<12); "T-RATIO FOR THE DIFFERENCE = ";Q 

990 PRINTTflB<12>; "PROBABILITY ("; EV; "TAILED TEST) = ".; :PRINTUSINGR$; QX: PRINT 

995 I F I O=2GOSUB3000 

1080 INPUT" WANT TO RUN ANOTHER SET OF DATA - <V)ES OR <N)0 "; ZQ 

1100 IFZO="V"RUN 

1150 CLS 

1200 IFIM=1GOTO1400 

1300 CLOSE: IFII03KILL"SCRflTCH/flSR" 

1400 END 

1500 QX=1 : QY=1 : QT=Q[ 2 : IFQT=0QX=i : GOTO17O0 

1520 IFQT<1GOTO1570 

1530 QS=QY : QR=M : QZ=QT : GOTO160O 

1570 QS=M : QR=QY : Q2=1/QT 

1600 QJ-2/9/QS : QK=2/9/QR 

1620 QL=flBS((l~QK)*QZ[ <i/3)-l+QJ)/SQR(QK*QZ[ <2A:)+QJ) 

1630 I FQR-C4GOTO1670 

1640 QX=. 5Ai+QL*<. 196854+QL*(. 115i94+QL+(. 800344+QL*. 019527) )))[ 4 

1650 G0T01690 

1670 QL=QL+<i+. 08*tJL[4XQRC3) :GOTO1640 

1699 I FQT<1QX=1~QX 

1700 QX=QX/ET: RETURN 

3000 GOSUB7000:FORJ=lTO2:GOSUB6000:NEXTJ:LPRINTCHR$(29)i " " 

3050 LPRINTTAB<17); "T-TEST RESULTS" 

3100 GOSUB6O00 : GOSUB6080 : LPR I NT " VRR I ABLE X : " :■ ZV; TAB < 32 ) :■ " VAR I ABLE V : " i ZU 

3200 GOSUB6000:GOSUB6000:LPRINTTflBc4);"MERN OF X = "; TE, "MEAN OF V = "; TH 

3300 LPRINT" ":LPRINTTRB<4>; "S. D. OF X = ";TS, "S. D. OF V = ",; TT 

3350 LPR I NT" " :LPRINTTRB<4), "S. E. MEAN = " .; EX, "S. E. MEAN = ":■ EV 

3400 GOSUB6000:GOSUB6000:LPRINTTAB(12); "NUMBER OF PAIRS <N) = ";N 

3500 GOSUB6000:LPRINTTAB<12); "CORRELATION OF X WITH V CR) = ", :LPRINTUSINGA$; R 

3550 GOSUB6000:GOSUB6000:LPRINTTAB(12).; "DIFFERENCE (MEAN X - MEAN V) = n .;TE-TH 

3600 GOSUB6000:LPRINTTAB<12); "DEGREES OF FREEDOM <DF) = ";N-1 

3700 GOSUB6000:LPRINTTAB<12)i "T-RATIO FOR THE DIFFERENCE = ";Q 
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T-Test for Matched Pairs (continued) 



3866 GOSUB6880:LPRINTTfiBvl2>.; "PROBABILITY <.":• EV; "TAILED TEST) = ".: :LPRINTUSINGR$; QX 

3960 F0RJ-1T03: : GOSUB1S888 : NEXT J : G0SUB7888 : RETURN 

6688 FORJF=lTOi:LPRINT ,! ": NEXT JF : RETURN 

7680 F0RL=lT013:LPRINT"*****"i :NEXTL:LPRINT" " '.RETURN 

9999 END 
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Correlation & Linear Regression Program Listing 

5 CLEAR150 

10 CLS : PRINT : N=0 : J=0 : DEFSNGA-H 0-W : DEFINTI-N : DEFDBLX, V : DEFSTRZ 

11 A*="#####. ##" :B*="######. ##" :DIMA(13> : IS=0: IC=0 

12 0NERR0RG0T015 : IM=2 : CMD"T" : CLOSE : GOTO20 
15 IM=1 : DIMX<MEM/8-100) : RESUME20 

20 PRIW'C ORRELflTION & LINEAR REGRESSIO N":PRINT 

25 ONERRORGOTO0 

30 PRINT"H0W WILL DATA BE ENTERED - "; 

40 INPUT" (K)EVBOARD (T)APE OR (D)ISK ";ZI: IFZIO"D"GQTO60 

45 PRINT: INPUT"WHAT IS THE NAME OF VOUR DATA FILE ";ZN 

60 PRINT: INPUT"DISPLAV RESULTS ON LINE PRINTER - <V)ES OR (N)O "; ZO 

64 PRINT: INPUT"WHAT IS THE NAME OF VARIABLE X "jZV:PRINT 

65 INPUT"WHAT IS THE NAME OF VARIABLE V ";ZU:I0=1:IFZ0="Y"I0=2 

66 IFLEN<ZU)>14ZU=LEFT*<ZU,14> 

67 IFLEN<ZV»14ZV=LEFT$(ZV,14> 

70 II=1:IFZI="T"II=2 

75 IFZI="D"II=3 

76 CLS : ONI IG0T077, 150, 500 

77 IFIM=2THEN0PEN"0", 1, "SCRATCH/ASA" 

73 PRINF'BEGIN ENTERING VOUR DATA PAIRS <X, V). 

80 PRINT"SIGNAL END OF DATA WITH & (?. ": PRINT 

90 INPUTZ, ZB : IFZ="@"GOTO120 

95 ONIMGOTO100, 110 

100 X(N+1)=VAL(Z> :X<N+2>=VAL(ZB> : H=N+2 : G0T098 

110 X=VAL(Z) : V=VAL<ZB> :PRINT#1, X, V : N=N+2 : G0T090 

120 N=N/2:IFIM=1GOTO130 

125 CLOSE 

130 PRINT :PRINTN; "PAIRS WERE ENTERED. ":GOTO500 

150 INPUT"INSERT DATA TAPE - HIT ENTER ";ZI 

155 IFIM=2THEN OPEN "OM, "SCRATCH/ASA" 

160 INPUT#-1, IT: INPUT#-1, ZO: PRINT 

170 PRINT"DATA FILE BEING READ = "; ZO: IFIT=2GOTO190 

180 PRINT: PRINT "WRONG DATA FILE TVPE" : PRINT : M6=4 : G0T01343 

190 INPUT#-1, Z(l>, Z<2>, Z<3>, Z<4), Z<5>, Z<6>, Z<7>, Z<8> : ONIMGGTO200, 210 

200 F0RK=1T08: IFZ(K)="@"THEN230 

205 X<N+K)=VAL<Z(K) > : NEXTK : N=N+8 : G0T0198 

210 F0RK=1T08: IFZ<K)="e"THEN230 

220 PRINT#1, Z<K> : NEXTK : N=N+8 : G0T0198 

230 IFIM=2 CLOSE 

235 PRINT :N=<N+K-1)/2:PRINTN; "PAIRS WERE READ. ":GOTO500 

350 X1=X1+X( J) : V1=V1+X< J+l) : X2=X2+X< J)C 2 : V2=V2+X< J+l)[ 2 : XY=XY+X< J>*X< J+l> 

360 IFX<J)>XHTHENXH=X(J) 

362 IFX(JXXLTHENXL=X<J> 

364 IFX<J+1»VHTHENVH=X<J+1) 

366 IFX(J+1XVLTHENVL=X<J+1) 

368 RETURN 

370 X1=X1+X : V1=V1+V : X2=X2+X[ 2 : V2=V2+V[ 2 : N=N+1 : XV=XV+X*V 

380 IFX>XH THENXH=X 

382 IFX<XL THENXL=X 

384 IFV>VH THENVH=V 
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Correlation & Linear Regression (continued) 



388 RETURN 

509 Xi=0 : X2-0 : Vl=8 : V2=0 : KV=@ : TZ=8 : VH=~1E38 : YL=1E38 : XH=-1E38 : XL=1E38 
503 IFIM=2N=0 

505 0NIMG0T0518.. 600 

510 F0RJ=1T02*NSTEP2 :G0SUB350 
550 NEXT J : G0T0888 

600 ONIIGOTO610.. 610.. 700 

610 OPEN" I ", 1, "SCRfiTCH/fiSfi" : G0T0785 

700 OPEN" I ", 1, ZN : INPUT#1, IT : IFITO2GQTOi80 

705 IFIP=2GOTO1510 

710 INPUTfrl, X.. V : G0SUB378 

715 IF E0F(1> THEN 888 

728 GOTO710 

888 TM=<XY*N-Y1*X1)/':X2*N~X1*X1) : TD=<V1+X2-XV*X1)/<X2*N--X1*X1) 

810 TA=XY-X1+V1/N : TB=X2-X1*X1/N : TOV2-Y1C 2/N : TC=V2~YiE 2/N : TS=SQR(TB/N> : TE=X1/N 

820 TH=Y1/N : TT=SQR < TC/N ) : CLS 

840 TB=SQR<TB) :TC=SQR<TC) :R=INT>::1000*TR/<TB*TC>+. 5)/1880 

858 IP=2:IFI0=2PRINT"TURN ON PRINTER - HIT ENTER ".; :INPUTZI:CLS 

988 PRINT"C ORRELftTI N & LINEAR R E G R E S S I N" 

910 PR I NT .PRINT "VARIABLE X: "; ZV; TABOO); "VARIABLE Y: ".; ZU 

920 PRINTTRB<4>; "MEAN OF X = ME," MEAN OF V = MH 

930 PRINTTAB<4).; "S. D. OF X = MS " S. D. OF V =";TT: PRINT 

945 PRINTTAB<12); "NUMBER OF PAIRS <N> = ";N: PRINT 

958 PRINTTAB<12); "CORRELATION COEFFICIENT (R) = ";R 

36Q PRINTTAEK12); "DEGREES OF FREEDOM <DF> = "; N-2: PRINT 

970 PRINTTfiB<12); "SLOPE (M) OF REGRESSION LINE = MM 

972 PRINTTAB<12); "Y INTERCEPT <B) FOR THE LINE = ";TD 

980 PRINT: PRINT :IFIS=1G0T01338 

990 IFIO=2GOSUB3000 

1000 FORI=0TO6 : A( I+l)=VL+I*<VH~VL)/6 : NEXTI : IS=1 

1100 FOR I =0T05 : A ( I +8 )=XL+ 1 * < XH-XL ) X5 : NEXT I 

1338 INPUT"(l=PLOT.. 2=PREDICT, 3=STATISTICS, 4=ST0P, 5=NEM RUN) WHICH "iM6 

1340 CLS:IFM6=5RUN 

1343 IFIM=2CL0SE 

1345 ONM6GOTO1350, 1610.. 900.. 9999. 9999 

1350 PRINT: INPUT "WANT REGRESSION LINE SHOWN (1=VES, 2=N0) ";A6:CLS 

1352 F0RI=7T01STEP-1 : PRINT : PRINTUSINGR*; A< I ) : NEXTI 

1353 PRINTH967, " "; :F0RI=8T013:PRINTUSINGB*j A< I); :NEXTI 
1355 F0RI=4T043:SEK18, D : NEXTI :F0RI=19T0125: SETC I, 43) : NEXTI 
1360 F0RJ=23T0113STEP18:SETCL 42) -.NEXT J 

1505 IFIM=2GOTO608 

1518 F0RJ=1T02*N-1STEP2:0NIMG0T01512, 1516 
1512 X=X(J):Y=X(J+1):G0T01518 
1516 INPUT*!, X, V 
1518 J0=23+(X-XL)/(XH-XL)+91 
1520 JP=40-(Y-YL)/(YH~YL)*36:SET<JO, JP):NEXTJ 
1530 TJ=XL : TQ= < XH-XL ) /108 : ONR6GOTO1540, 1588 
1540 JO=23+(TJ-XL)/(XH-XL)*93:JP=40-<TM*TJ+TD-VL)/<VH-VL)*37 
_1550 IF < JP>48 > OR < JPC4 ) GOTO1570 
1560 SET (JO.. JP) , 
1570 TJ=TJ+TQ: IFTJ>XHG0T01588 
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Correlation & Linear Regression (continued) 



1559 IF(JP>40)OR(JP<4)GOTO1570 

1568 SEKJ0.JP) 

1570 TJ=TJ+TQ:IFTJ>XHGQTQ1588 

1580 GOTO1540 

1588 IFC I0=2>AND< IC=0)GOSUB2000 : IC=i 

1530 PRINT015, "HIT ENTER TO CONTINUE "; 

1600 INPUT2I : CLS : PRINT : GOTO1330 

1610 PRINT :PRINT"ENTER TO STOP PREDICTING" 

1620 PRINT:PRINT" X PREDICTED V":PRINT" " 

1630 INPUTZ0:X=VAL(Z0> : IFZO="0"THEN1330 

1640 AV=TM*X+TD: IF<X<XL)OR<X>XH)GOTO1660 

1650 PRINTTfiB(14);flV:GOTO1630 

1660 PRINTTAB<14)i AV; " <X NOT IN RANGE)" :GOTO1630 

2080 FOR J=1T03 : GOSUB6000 : NEXTJ : LZ=4 : LC=7 : LR=0 

2020 LPRINTTAB<5)j " X BV V P L T" 

2025 LPRINTTRB(S); " ":LPRINT" " 

2050 LP=<39-LEN<ZU)*2V2 

2060 L J=0 : K=-l : F0RJ=3T041 ±1=9: L J=L J+l : LZ=LZ+1 : K=-K 

2070 IF<LJ>=LP)flND(LRaEN<ZU))AND<SGN<K)=l):LR=LR+l:LPRINTMID$<ZU,LR,l)j :GOTO208 



2075 LPRINT" "; 

2080 IFLZ=6LPRINTUSINGA*;A<LC>; :LPRINTTAB<9>; "+"; : LC=LC-1 : LZ=0 : GOTQ21O0 

2890 LPRINTTflB(9)i"I"i 

2100 FORL=20TO124STEP2:LI=LI+1 

2110 IF(P0INT<b J)=-1)0R<P0INT<L+1, J)=-1)LPRINTTAB<LI>; "*"; 

2120 NEXTL: LPRINT" ": NEXTJ 

2500 LPR I NTTflB < 9 ) "—+ + + + + + " 

2550 LPRINT" " 

2600 LPRINTTAB<6>; " "> :F0RJ=8T013:LPRINTUSINGB*; A<J); :NEXTJ 

2700 LPRINT" ":LL=LEN(ZV>: LPRINT" ":LPRINTTflB<ll+(46-2*LL)/2)i " "; 

2800 FORJ=lTOLL:LPRINTMID*<ZV, J,l); :LPRINT" "; :NEXTJ 

2900 F0RJ=1T03 : GOSUB6O00 : NEXTJ : LPRINT" " : LPRINT" " : GOSUB7000 : RETURN 

3000 GOSUB7000 : F0RJ=1T03 : GOSUB6O00 : NEXTJ 

3050 LPRINT" CORRELATION & LINEAR REGRESSION" 



:GOSUB6000: LPRINT" VARIABLE X: ";ZV;TAB<32>; "VARIABLE V: "j ZU 
:GOSUB6000:LPRINTTAB(4)J"MEAN OF X = "i TE, "MEAN OF V = "; TH 
:LPRINTTAB(4);"S. D. OF X = "; TS, "S. D. OF V = ";TT 
:GO5UB6900:LPRIHTTAB<12>; "NUMBER OF PAIRS <N) = "iH 
:GOSUB6000:LPRINTTAB<12)J "CORRELATION COEFFICIENT (R> = ";R 
:LPRINTTAB<12>; "DEGREES OF FREEDOM <DF> = "j N-2 
:GOSUB6000:LPRINTTAB<12); "SLOPE <M) OF REGRESSION LINE = "; TM 
:LPRINTTAB<12)i"V INTERCEPT <B> FOR THE LINE = "; TD 
: GOSLIB6000 : NEXTJ : GOSUB7000 : RETURN 

6000 F0RJF=1T03: LPRINT" ": NEXT JF : RETURN 

7600 F0RL=1T013: LPRINT"*****"; : NEXTL: LPRINT" ": RETURN 

9999 IF<IM=2)AND<IK>3)KILL"SCRATCH/ASA H 

10000 END 

10100 PRINT"CORRELATION NOT COMPUTABLE (VARIANCE = 0>":GOTO9999 



3108 GOSUB60O0 
3200 GOSUB6000 
3300 GOSUB60O0 
3400 GOSUB6000 
3500 GOSUB6000 
3600 GOSUB6000 
3700 GOSUB6000 
3800 GOSUB6000 
3900 F0RJ=1T03 
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Multiple Linear Regression Program Listing 

186 CLEAR280:B$="#. ####" :C*="#" :ClS:PRINT:DEFINTI-N:DEFSNGP 

105 DEFSTRZ:DIMZ<7>, C<6, 7), S(7>.. X<7>, SS<6>, PiKS), PS<6>, H<6>, V*<6> 

118 PRINT" M U L T I P L E LINER R R E G R E S S I H" 

112 0NERR0RG0T0115 : IM=2 : CMD"T" : G0T0126 

115 IM=1:RESUME120 

128 ONERRORGOTO0 

130 PRINT : PR INT "HOW WILL DflTfi BE ENTERED - "; 

135 INPUT" <K>E¥BOARD, <T>APE, OR (D)ISK ".; ZI : IFZIO"D"GOTO150 

140 PRINT:INPUT"WHfiT IS THE NAME OF VOUR DATA FILE ";ZN 

150 PRINT: INPUT "DISPLAV RESULTS ON LINE PRINTER - <V>ES OR (N)U ";Z0 

160 PRINT: INPUT "HOW MfiNV INDEPENDENT VARIABLES FOR THIS RUN (1-5) "; IV 

170 N=0 : X < i ) =i : I FZ I <> " K " GOTQ308 

173 PRINT: INPUT "WHAT IS THE NAME OF THE DV ".; DV$ 

175 F0RJ=2T0IV+l:M(J)=J-i:PRINT"WHAT IS THE NAME OF IV #"; J-l; : INPUTV*(J) : NEXT J 

ISO CLS:PRINT"BEGIN ENTERING VOUR DATA. " 

185 PR I NT "SIGNAL END OF DATA BV ENTERING § FOR THE DV VALUE. " 

190 N=N+i : PRINT : PR I NT "SUBJECT #"; N : INPUT "DV ":■ Z : IF2="§"N=N-i : G0T0788 

135 X(IV+2)=VAL<Z) 

200 F0RI=2T0IV+1: PRINT" IV"; I-i; : INPUTZ:X(I)=VAL<Z) :NEXTI : G0SUB658 : G0T0198 

388 CLS:PRINT"WHICH"; IV; "IVS FROM THE FILE WILL BE USED" 

385 PRINT"<ENTER ONE IV # AFTER EACH QUESTION MARK)" : PRINT 

307 DATA FIRST, SECOND, THIRD, FOURTH, FIFTH 

316 F0RJ=2T0IV+l:READA$:PRINTAf; " ", : INPUTM(J) : INPUT "WHAT IS THE NAME OF THAT IV ",V$<J: 

328 PRINT :NEXTJ: INPUT "WHAT IS THE NAME OF THE DV : ',DV$ 

338 IfZI="D"THEN458ELSECLS:INPUT"L0AD DATA TAPE - HIT ENTER ";R$: PRINT 

340 INPUT*-!, I:INPUT#-i, A$: PR I NT "DATA FILE BEING READ = "; Af : IFI=4G0T0355 

350 PR I NT "WRONG DATA FILE TVPE. " : GOTO9800 

355 I NPUTfr-i, JV : I F I V> J VT HEN8988 

360 INPUT*-!.. Z<8), Z(l>, Z<2>, Z<3), 2(4), Z(5), Z(6), Z<7) : IFZ<8) = "i?"G0T0788 

376 N=N+i:X<IV+2>=VAL<Z<0>} :F0RJ=2T0IV+i:X<J>=VAL<2CM<J}}> : NEXT J 

388 G0SUB658 : G0T0360 

458 OPEN" I", i, 2N: INPUTttI, I : IFIO4G0T0358 

468 INPUT*!, JV:IFIV>JVGOTO8908 

465 INPUT*!, Z<8> : IFZ(8)="§"G0T0788 

478 FORK-1TOJV: INPUT*!, Z<K> :NEXTK 

488 N=N+1:X(IV+2)=VAL<Z(0>) :F0RJ=2T0IV+i:X<J)=VAL(Z(M(J)>) :NEXTJ 

490 G0SUB650 : G0T0465 

650 F0RI=1T0IV+1:F0RJ=1T0IV+2:C(I, J)=C(I, J)+X<I)*X(J) 

668 S(I)=C(I, IV+2):NEXTJ:NEXTI 

670 S<IV+2>=S<IV+2>+X(IV+2>E 2: RETURN 

708 F0RK=2T0IV+i : KK>=€<1, K) : NEXTK 

785 F0RJ=2T0IV+1:SS<J)=C(J, J) : NEXT J 

710 F0RJ=1TG JV+i : FORK=JTOIV+l : IFCCK, J)O0GOTO738 

728 NEXTK:PRINT"MATRIX IS SINGULAR. ":GOTO9808 

730 F0RL.=lT0lV+2 : W=C( J, L) : C< J, L)=C(K, L) : C(K, L)=W : NEXTL 

740 Q=i/C<J, J) :F0RL=1T0IV+2:C(J, L)=Q*C(J, L) :NEXTL 

758 F0RK=1T0IV+1 : IFK=JG0T0778 

768 Q=-C<K, J) :F0RL=1T0IV+2:C<:K, L)=C<K, L)+Q*C(J, L) : NEXTL 

778 NEXTK: NEXT J 

775 F0RJ=2T0IV+l:PM<J)=T<J>/NPS<J)=SQR<<SS<J>-T<J)[2/N)/(N-l)):NtXTJ 

788 F0RJ=2T0IV+1:SR=SR+CCJ, IV+2)+(S<J)-T<J)*S(i)/N> : NEXT J 
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Multiple Linear Regression (continued) 

785 ST=S(IV+2>--S<l>[2/N:P2=SR/ST:Pl=SQR<P2):F'S<i)=SQR<ST/(N-l));PM(i)=SaVH 

798 D2=N-IV-i:PF=SR/ST/ , IV/(<i"SR/ST>/D2):PE=SQR<flBS<(ST-SR;^/D2V.' 

860 QT=PF : IFQT=8QX=1 : G0T0995 

826 I FQK1GOTO870 

8iU QS= I V : QR=D2 : QZ=QT : G0T0988 

879 QS=D2 : QR= I V : QZ=1/QT 

988 QJ=2/9/QS : QK=2/'9/QR 

928 QL=ABS((1-QK)*QZ[ (l/3)-l+QJ)/SQR(QK*QZ[ (2/3)+QJ) 

938 IFQR-C4G0T0978 

948 QX=. 5/(l+QL+(. 196854+QL+(. 115194+QL*(. 800344+QL*. 819527) )))[ 4 

956 GOTO990 

970 QL=QL*<1+. 88*QLE4/QR[3) :G0T0948 

998 I FQT<1QX=1-QX 

995 !FZOO"V"THEH1100ELSECLS: INPUT "TURN ON PRINTER - HIT ENTER "; ft*:GOTO1108GOTOli08 

1800 CLS : PR I NT : PR I NTTftB ( 28 ) ; " REGRESS I ON COEFF I C I ENTS " 

1810 PR I NTSTR I NG* ( 63, " - " ) : PR I NT " VAR. NflME HERN S. D. COEFF. 

1828 PRINTSTRING*(63, "-"): PRINT "C CONSTANT"; TAB (48); CSNG(C(1.. IV+2)) 

1038 F0RJ=2T0IV+1 : PRINT" IV"; : PRINTUSINGCf-; M( J); : PRINT" "; V$( J); 

1848 PRINTTfiB(18); PM( J); TREK 33); PS( J); TfiB<48); CSNG(C( J, IV+2) ) 

1058 NEXTJ:PRINT"DV "; DV$; TA6(18); PM(1); Tf!B<33); PS<1) 

1060 PRINTSTRING*(63, "-"> 

1070 PRINT: INPUT" (COEFFICIENTS OR DEGRESSION STATISTICS ";H$ 

1880 I FR$= " C " THEN1800 

1098 IFft*="R"THENli88 

1895 I F A$= " P" THEN2800ELSE1070 

1108 CLS .PRINT 11 R E G R E S S I N S T ft T I S T I C 5" .PRINT 

1118 PRINT"COEFFICIENT OF DETERMINATION <R SQUARE) 

1128 PRINT"COEFFICIENT OF MULTIPLE CORRELATION (R) 

1130 PRINT "STANDARD ERROR OF ESTIMATE"; TAB( 42); "= ' 

1148 PR I NT "REGRESS I ON SUM OF SQUARES"; TAB (42); "= "; 

1158 PR I NT "RES I DUAL SUM OF SQUARES"; TREK42); "= "; CSNG(ST- 

1160 PRINT"TOTAL SUM OF SQUARES"; TAB <42); "= ";CSNG(ST) 

1162 PR I NT " F-RAT 1 < REGRESS I ON ) = " i PF 

1170 PRINT"DEGREES OF FREEDOM"; TAB<42); "= "; IV; " A ";te 

1180 PR I NT " PROBAB I L I T V OF CHANCE " ; TAB ( 42 ) ; " = " ; : PR I NTUS I NGB$; QX 

1185 PR I NT "NUMBER OF CASES (SUBJECTS)"; TAB (42); "= ";N 

1199 PRINT"NUMBER OF INDEPENDENT VARIABLES"; TAB(42); "= "; IV 

1195 I F < LL=0 ) AND < ZO= " V " ) THEN2100ELSE107O 

2108 LPRINTCHR*<29>; " R E G R E S S I N S T A T I S T I C S": LPR I NT 

2118 LPR. I NT" COEFFICIENT OF DETERMINATION <R SQ) = ";P2 

2120 LPR I NT "COEFFICIENT OF MULTIPLE CORRELATION = "; PI 

2130 LPR I NT "STANDARD ERROR OF ESTIMATE = ";PE 

2140 LPR I NT "REGRESS I ON SUM OF SQUARES = ";SR 

2150 LPR I NT "RES I DUAL SUM OF SQUARES = ";ST-SR 

2168 LPR I NT "TOTAL SUM OF SQUARES = "; ST 

2162 LPR I NT "F-RAT 10 (REGRESSION) = ";PF 

2178 LPR I NT "DEGREES OF FREEDOM"; TAB(36); "= "; IV; " & ";D2 

2188 LPR I NT "PROBABILITY OF CHANCE = ";QK 

2185 LPR I NT "NUMBER OF CASES (SUBJECTS) = ";N 

2190 LPRINT"NUMBER OF INDEPENDENT VARIABLES = "; IV 

2200 F0RJ=1T06:LPRINT" " :NEXTJ:LPRINTTAB(20); "REGRESSION COEFFICIENTS" 
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I Multiple Linear Regression (continued) 

3800 LPRINT" ":LPRINTSTRING*<60, "-"> :LPRINT"VRR. NAME MEAN. S. D. COEFF. " 

3018 LPRINTSTRIN6$<60.. "-"> :LPRINT"C CONSTANT".; TAEK48).; CSNG(C(1, IV+2>> 

3030 F0RJ=2T0iV+l: LPRINT" IV"; :LPRINTUSINGC*; M(J).; :LPRINT" "; V$(,T); 

3040 LPRINTTAB<18>.; Pt'KJ).; TAB<33> > PS< J) ; TAB<48> ; CSNG<C< J, IV+2) ) 

3050 NEXTJ: LPRINT "DV ":■ DV$; TRB<18>; PM<1>; TRB<33>; PSC1> 

3060 LPRINTSTRINQ*<60, "- " ) : LL=1 : GOTO1076 

8900 PRINT"ONLV".;JV.; "IV'S ON FILE!" 

9000 IFIM=2CL0SE 

9100 END 
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Time Series Analysis I Program Listing 



5 CLEAR158 

18 CLS : PRINT : N=6 : J=8 : DEFSNGfi-H, 0-W : DEFINTI-N : DEFDBLX, V : DEFSTRZ 

11 A$= "#####. ##" :B*= "######. ##" :C$="###. ##" :DIMA(i3) : IS=8: IC=8 

12 0NERR0RG0T015 : IM=2 : CI"1D"T" : CLOSE : GOT020 
15 IM=l:DIMK(HEM/8-iee):RESUME26 

26 PRINTTAB(7), "T I HE SERIES ANALYSIS I" : PRINT 

25 0NERR0RG0T08 

36 PR I NT "HOW WILL DATA BE ENTERED - ".; 

48 INPUT" (K)EVBOfiRD (T)flPE OR (D)ISK "; ZI : IF2IO"D"G0T056 

45 PRINT -.INPUT "WHAT IS THE NAME OF VOUR DflTfi FILE 'U2N 

5W PRINT: INPUT "TYPE OF DflTfi - (V)EARLV (Q)URRTERLV (tl)ONTHLV (W)EEKLV ":■ D$ : G0SUB38888 

60 PRINT:INPUT"DISPLflV RESULTS ON LINE PRINTER - <V)ES OR (N)U ":■ 20 

65 PRINT: INPUT "WHAT IS THE NAME OF VARIABLE V "> ZU: 10=1: IFZ0="V"I0=2 

£.£. IFLEN(ZU)>14ZU=LEFT*(2U, 14) 

78 II=1:IFZI="T"II=2 

75 IFZI="D"II=3 

76 CLS : ONI I GOT 077, 150, 586 

77 IFIM=2THEN0PEN"0", 1, "SCRATCH/ ASA" 

79 PRINT"BEGIN ENTERING VOUR OBSERVATIONS (SEE MANUAL). " 
88 PRINT"SIGNAL END OF DATA WITH e, @. ": PRINT 

98 INPUTZ, ZB:IFZ= !, §"GOTO120 

92 IFN=8K1=INT(VAL(Z)) :K4=INT(i00*(VAL(Z)-~Kl)) 

93 IFN=2K2=i : IFJW=1K2=INT( VflL<Z) )-Kl : C6=l/K2 
95 ONIMGOTO108, ilo 

188 X(N+i)=VHL(Z) :X(N+2)-VAL(ZB) :H=N+2:GOTO90 

110 X=VAL(Z) :V=VAL(ZB) :PRINT#i, X, V : N=N+2 : G0T098 

128 N=N/2:IFIH=iGGT0138 

125 CLOSE 

130 PRINT : PR I NTN.; "OBSERVATIONS WERE ENTERED. ":G0T0588 

150 INPUT" INSERT DATA TAPE - HIT ENTER ";ZI 

155 IFIM=2TH.EN 0PEN"0",1, "SCRATCH/ASA" 

168 INPUT#-1, IT : INPUT#-i, 20 : PRINT 

178 PR I NT "DATA FILE BEING READ = ".; 20: IFIT=2G0T0198 

180 PRINT : PR INT "WRONG DATA FILE TVPE" : PRINT :M6=4:G0T01343 

198 INPUT#-1, 2(1), 2(2), 2(3), 2(4), 2(5), Z(6), Z(7), Z(8) 

195 IFN=8K1=INT(VAL(2(1))):K4=INT(100*(VAL(2(1))~K1)) 

19? IFN=0K2=1:IFJW=1K2=INT(VAL(2(3))-K1):C6=1/K2 

200 F0RK=1T08: IF2(K)="0"THEN238 

285 IFIM=1X(N+K)=VAL(Z(K) ) : NEXTK : N=N+8 : G0T0198 

228 PRINT#1, 2(K) : NEXTK : N=N+8 : G0T0198 

238 IFIM=2 CLOSE 

235 PR I NT :H=(N+K-i)X2: PR I HTN; "OBSERVATIONS WERE READ. ": GOT 0500 

350 K=K+1 : Xl=Xi+K : V1=V1+X( J+l) : X2=X2+KE 2 : V2=V2+X( J+i)C 2 : XV=X¥+K*X( J+l) 

364 IFX(J+1)>VHTHENVH=X(J+1) 

366 IFX(J+1)<VLTHENVL=X(J+1) 

368 RETURN 

370 K=K+1 : X1=X1+K : V1=V1+Y : X2=X2+KE 2 : V2=V2+V[ 2 : H=N+i : XV=XV+K+V 

375 IFN=1K1=INT(X):K4=INT(100*(X-K1)) 

388 I FN=2K2=1 : I F JW=1K2= I NT ( X-Kl ) : CS=1/K2 

384 IFV>VH THENVH=V 

386 IFV<VL THENVL=V 
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Time Series Analysis I (continued) 



S38 RETURN 

5@0 Xi=8 : X2=8 : ¥1=0 : V 2=6 : XV^M : TZ=W : ¥H=-1E38 : VL=1E38 

563 K=-1:IFIM=2N=8 

505 ON I MOOT 0510. 600 

510 F0RJ=1T02*NSTEP2 : G0SUB358 

550 NEXTJ;GOTO800 

608 ONI IGOTO610, 618.. 788 

618 OPEN"!".. 1, "SCRRTCHXflSfl" : GOT 0705 

788 0PEN"!",1, ZN:INPUT#1, IT : IFITO2&OTO180 

705 ONIP+lGOTO7i0, 876, 1518 

718 I NPUT#1, X, V : G0SUB370 

7i5 IF E0F<1) THEN 888 

728 G0T0718 

888 TM= ( XV*N- ¥i*Xi ) / < X2*H~X1*X1 ) : TD= < ¥i*X2~X¥+Xi ) X ( X2*N~X1*X1 ) 

875 IFIM=2CL0SE : IP=1 : G0T0688 

876 L=-i : F0R,T=lT02*N-iSTEP2 : QOSUB28880 : NEXT,! 

877 EZ=<fl<18)+fl(9>X2-(N-i)X2)XSQR(<N-'l)Xi2):HV=Vi[2/N:VH=<V3-fiV)X<V2~RV)+188 
988 CLS:IP=2:IFI0=2PRINT"TURN ON VOUR PRINTER - HIT ENTER "; :INPUTZI:CLS 
958 PRINTTfiB<7>.; i! T I M E S E R I E S H N R L ¥ S IS I" 

978 PRINT PRINT "EQURT ION FOR LEAST SQUARES TREND LINE:" -.PRINT 

971 S*="+":IFTM<0S*="-" 

972 PRINTTRB<6), "TREND =";TD;S*; RBS<TM>; "X" 

973 PRINTTAB<6); "ORIGIN: "; Kl; : IFJWOIPRINT"- "iD$;K4; 

974 PRINT :PRINTTfiB<6); "TIME UNIT: ":■ K2; D*i : IFK2>1PRINT"S"; 

977 PRINT:PRINT:PRINT"STRTISTICflL TEST FOR TREND (Z) =";EZ;" Z(. 85)=1. 96" 

978 PRINT: PRINT "VARIANCE IN V ACCOUNTED FOR BV TREND ="; :PRINTUSINGC*; Vfi; : PRINT" X" 
988 PR I NT : PR I NT : I F I S=1G0T01338 

998 I F I O=2GOSUB3808 

1000 FuRI= : 0TO6:R<I+i)=VL+I*<VH-VL)X6:NEXTI : 15=1 

1338 INPUT" <1=PLQT, 2=PREDICT, STATISTICS, 4=ST0P) WHICH ";M6 

1343 CLS:IFIH=2CL0SE 

1345 0NM6G0T01358, 1610, 958, 9999, 9999 

1358 PRINT: INPUT "WfiNT TREND LINE SHOWN <1=¥ES, 2=N0) ";fl6:CLS 

1352 F0RI=7T01STEP-1 : PRINT : PRINTUSINGfi*; fK I > : NEXT! 

1353 PRINT8971, "0 <";K1.; : 1FJW<>1PRINTD$; K4; 

1354 PRINT" ) "i TRB<55); H-li 

1355 F0RI=4T043 . SEK18, I ) : NEXT I : F0RI=19T0125 : SETC I, 43) : NEXT! 
1368 FOR J=23T0113STEP3 : SET < J, 42 ) : NEXT J 

1585 IFIM=2G0T0688 

1518 K=-l : FOR J=1T02*N-1STEP2 : K=K+1 : ON I MG0T01512, 1516 

1512 X=K : V=X< J+l) : G0T01518 

1516 INPUTtti, X, ¥ 

1518 X=K: J0=23+XX(N-1)+91 

1528 JP=40-<V"VL)/(VH-VL)+36:SET<JO, JP) :NEXTJ 

1538 TJ=0 : TQ=(N-1)/180 : ONR6GOTO1540, 1588 

1546 J0=23+TJ/<N--1)*93 : JP=48--(TM*TJ+TD-VL)/(VH-VL>+37 

1558 I F < JP>48 ) OR < JP<4 ) G0T01578 

1568 SET < JO, JP) 

1578 TJ=TJ+TQ: IFTJ>N-1G0T01588 

1588 G0T01548 

1588 I F < 1 0=2 ) AND ( I C=8 ) GOSUB2808 : 1 C=l 
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Time Series Analysis I (continued) 

1599 PRINT610, ZU;" BV ":• D$; " . . . HIT ENTER "; 

1689 I NPUTZI : CIS : PRINT : G0T01338 

1618 PR I NT "ENTER § TO STOP PREDICTING" 

1628 PRINT: INPUT "VEflR "; ZO: IFZO="§"THEN1330 

1638 K3=VAL<ZO>:JJ=0:IFJWO1PRINTD$.; : INPUT J J 

1648 K=<0-K1>+C6-K4+JJ : RY=Tf1*X+TD 

1656 PRINT'TIME VARIABLE <X> =":■ K:PRINT"PREDICTED V <V> =":■ A¥:GOTO1620 

2808 GOSUB6008 : LZ=4 : LC=? : LR=8 

2050 LP=<39~LEN<ZU>*2>/2 

2860 LJ=8 : K=-l : F0RJ=3T041 : LI =9 : LJ=L J+l : LZ=LZ+1 : K=-K 

2878 IF<LJ>=LP)HND<LR<LEN<ZU))HND<SGN<K>=1) :LR=LR+i:LPRIHTMID$(ZU, LR, i); :GOTO2@80 

2075 LPRINT" ".; 

2888 IFLZ=6LPRINTUSINGA$;fl<LC)j :LPRINTTAB<9>; " + "; : LC=LC~1 : LZ=W : GOTO2180 

2098 LPRINTTHB(9).i "I"; 

2100 FORL=20TO124STEP2 : L I =L I +1 

2118 IF<POIHT<L,J>=~l>OR<POINKL+i, J>=-1>LPRINTTRB<LI>; "*"; 

2128 NEXTL: LPRINT" ":NEXTJ 

2508 LPRINTTfiBOX; : F0RJ=1T017 ; LPRINT "—+"; :NEXTJ: LPRINT" " 

2688 LPRINTTABdi); "0 <";K1; : IFJW<>1LPRINTD$; K4; 

2700 LPRINT")"; TAB<55> ; N-i.; 

2900 F0RJ=1T02 : GOSUB6008 : NEXT J : LPRINT" " : GOSUB7008 : RETURN 

3088 GOSUB7080 : F0RJ-1T02 : GOSUB6880 : NEXT J 

3580 LPRINTCHR$<29>; TAB<7>; "T I HE SERIES H N fl L V S I S I" :G0SUB686e 

3688 LPRINT"TEST FOR TREND <Z; ="; EZ; TAB<35>; "TREND LINE EQUATION:" 

3658 LPRINTTAB<35); "¥•' ="; TD;S$; RBSCTM); "X" 

3786 LPRINT "VARIANCE ACCOUNTED FOR"; TfiB<35>; "ORIGIN: "; Kli : IFJWOILPRINT"- ".; D$; K4; 

3888 LPRINT" " :LPRINT"BV TREND = ".; :LPRINTUSINGC$; VA; 

3980 LPRINT" '/."} TAB<35>; "TINE UNIT: ",; K2; D$; : IFK2>1LPRINT"S" 

3958 LPRINT" ": RETURN 

6000 F0RJF-1T03 : LPR I NT " " : NEXT JF : RETURN 

7888 LPRINTSTRIHG$<65, "*">: RETURN 

9999 IF< IM=2)AND( I I03)KILL"SCRATCH/ASfl" 

18080 END 

28000 IFIM=2THEN20018ELSEV=X(J+1> :GOTO20038 

20818 INPUT*!, X, V 

28038 I F J=1HL= V : GOTO28050 

28840 K=9+SGH < V-HL ) : A< K ) =A < K ') +1 : HL=V 

28050 L=L+1 : V3= V3+ < TD+TM*L ) [ 2 : RE TURN 

38088 I FD$= " V " JW=1 : D$= " VEflR " 

38818 IFD*="Q"C6=4 : JW=2 : D$=" QUARTER" 

30828 I FD$= " M " C6=12 : JW=3 : D$= " MONTH " 

38038 I FD*= " W " C6=52 : JW=4 : D*= " WEEK " 

30848 RETURN 
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Time Series Analysis II Program Listing 



5 CLERR158 

18 CLS : DEF INT I-N ; DEFSTRZ : N=i 

12 0NERR0RG0T015 : I M=2 : CMD " T " : CLOSE : GOTO20 
15 IM=1:RESUME20 

26 PRINTTflB<5>; "T I M E SERIES RNRLVSIS I I": PRINT 
25 OHERRORGOTOe 

27 J= < HEM-880 ) X12 : D I MX ( J ) , V < J > , A < J ) , QM < 12 ) .. NN < 12 ) 
36 PRINT "HOW WILL OfiTfl BE ENTERED - "; 

40 INPUT "(KEYBOARD <T)fiPE OR <D)ISK "; ZI : IFZIO"D"G0T046 

45 PRINT: INPUT "WHAT IS THE NAME OF YOUR DATA FILE ";ZN 

46 PRINT: INPUT "(SEASONAL INDEXES OR <H)OVING AVERflGES - WHICH "; ZR 

47 PR I NT : I FZR= " H " PR I NT " ( V ) EflRL V, " ; 

48 PRINT" (Q)UARTERLY, a-DONTHLY"; : 1FZR="M"PRINT", (W)EEKLV, <D>AILV"; 
50 INPUT" - WHICH -;D*:GOSUB30000 

55 IFZR="H"PR INT: PR INT "MOVING AVERAGE OF HOW MANY ";D*;"S "; : INPUTM 
60 PRINT: INPUT" DISPLAY RESULTS OH LINE PRINTER - (Y)ES OR (N)O ";ZO 
65 10=1: IFZO="V" 10=2 
70 II=l:IFZI = "T !i II=2 

75 IFZI="D"II=3 

76 ONI IG0T079, 150, 306 

79 CLS '.PRINT "BEG IN ENTERING YOUR OBSERVATIONS (SEE MANUAL). " 

80 PR I NT "SIGNAL END OF DATA WITH @, @. "-.PRINT 
90 I NPUTZ, ZB : I FZ= " @ " N=N-1 : G0T0130 

160 X(N>=VAL<Z) : Y(H)=VAL(ZB) : N=N+1 : GOTO30 

130 PR I NT: PRINTS "OBSERVATIONS WERE ENTERED. " :GOTO500 

150 CLS: INPUT" INSERT DATA TAPE - HIT ENTER ";ZI:N=8 

160 INPUT#-i, IT : INPUT#-1, ZO : PRINT 

178 PR I NT "DATA FILE BEING READ = ".; ZO: IFIT=26OTO190 

186 PR I NT: PR I NT "WRONG DATA FILE TYPE" : PRINT : M6=4 : G0T01343 

190 INPUT#-1, Z<1>, Z<2>, Z<3>, Z<4>, Z<5>, Z<6>, Z<7>, Z<8) 

200 F0RK=iT07STEP2: IFZ<K}="0"THEN235 

285 N=N+1 : X(N)=VAL(Z(K) ) : V(N)=VAL(Z(K+1) ) : NEXTK : G0T019O 

235 PR I NT: PRINTS "OBSERVATIONS WERE READ. ":GOTO500 

200 N=l : OPEN" I ", 1, ZN : INPUTfrl, IT : IFITO2G0T0180 

316 INPUTM, X<N>,V<N> 

315 IFEOF(i)THEN500ELSEN=N+i : G0T0318 

500 IFZR="M"THEN536 

516 I FD$= "QUARTER " THENH=4ELSEM=12 

530 KN=N-M+1 : K0= I NT < M/2+. 5 ) : I FM/2= I NT < M/2 ) K0=K0+1 

556 F0RJ=1T0KN : F0RI=JT0J+M-1 : fi( J)=A< J)+V( I ) : NEXTI : NEXT J 

554 1=1 : IFH/20INT (M,- , 2)THEN560ELSEI=2 : KN=KN~i 

556 FOR J=1T0KN : A ( J ) =fl < J > +A < J+l ) : NEXT J 

566 F0RJ=1T0KN : A< J)=A< J)/M/I : NEXT J : IFZR="S"THEN700 

570 CLS: IFIO2GOSUB20800 

580 L=10O* < X < 1 ) - 1 NT < X < 1 ) ) ) : J$=D*+STR* ( L > : I FD*= " MONTH " 6OSUB25600 

585 IFD*="YERR"J*=D* 

596 PRJNTM; D$; " MOVING AVERAGE " : PRINT" ORIGIN = "; J$; INT(X<1>); 

595 IFI0=2LPRINTCHR*<29)i M; D*i " MOVING AVERAGE" :LPR I NT" ORIGIN = "; J$; iNT<X<l>> 

596 I F 1 0=2LPR I NT ". " : LPR I NTSTR I NGt ( 60, " - " > : LPR I NT " " 
598 PR I NTT ABC 38); "HIT § TO START « STOP" 

660 PRIMTSTRING*(63, "-"): PRINT :GOSUB40820 
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Time Series Analysis II (continued) 



610 F0RLL=1T0KN:I=LL+K0-1:L=. 5+iee*<X<I)-INT<X<I)>):J*=D*+STR*<L):IFI>*="VEflR"J*=D* 
612 IFD$="MONTH"GOSUB25000 

615 PRINT J$, INT<K( I > >, FKLL) : IFI0=2LPRINTJ$, INT itti I ) ), fi<LL) 

626 GOSUB40000:NEXTLL:PRINT:INPUT"<L)IST AGAIN OR (E>ND PROGRAM ".; 21 

625 IF2I= n E"THEH10800ELSECLS:GuTO580 

708 F0RLL=1T0KN : I=LL+K0-i : fl<LL)=V< I >/A<LL>+188 : NEXTLL 

718 F0RLL=1T0KN:I=LL+K0-1:L=. 5+188*<Xa>-"INT<X<D>> 

728 QM<L)=QM<L)+fl<LL):NN<L)=NN<L)+l: NEXTLL 

730 F0RJ=1T0M : X=1E35 : V=-1E35 : F0RI=1T0KN 

740 K=I+KQ-1:L= 5+188*<X<K}-INT<X(K}>> : IFLO-J G0T0778 

750 IFfl<I»VTHENV=fl<I) 

760 IFAaKXTHENX=A<D 

770 NEXT I : QM < J ) =QM W > "X- V : NN ( J ) =NN < J > -2 : NEXT J 

780 F0RJ=1T0M : I FNN < J > -C1THEN9999ELSENEXT J 

798 F0RJ=1T0H:QM<J>=QM<J}/NN<J> :SM=SM+QM<J> : NEXT J : X=M*180/SM 

880 FOR J-1T0M : QM ( J ) =QM < J ) *X : NEXT J 

805 CLS:IFIO=2GOSUB20008 

818 PRINTDfj TAB<12>; "SEASONAL INDEX"* "# ";D*i "S USED" :PRINTSTRING$<58, "-"} 

820 IFH=12THEN850ELSEZ<l)="r , :Z<2)= ,, ir , :2(3)="IH":2<4)="IV" 

830 F0RL=1T04:PRINTTAB<3>; 2<L>, QH<L>, NN<L) : NEXTL : GOTO908 

858 F0RL=1T012 : GOSUB25800 : PRINT J$, QM<L), NN<L> : NEXTL 

900 PRINTSTRING*<50.. "-") : IFIOO2GOTO1800 

910 LPRINTD*.; TRB<12>; "SEASONAL INDEX", "# ";&-, "S USED" :LPRINTSTRING$<50, "-"> 

928 IFM=12GOTO950 

938 F0RL=1T04 : LPRINTTAB<3> ; 2<L>, QM<L>, NN<L) : NEXTL : G0T0998 

958 FORL=1TO12:GOSUB25000:LPRINTJ$, QM<L>, NN<L) : NEXTL 

998 LPRINTSTRINGf<58, "-"> 

1888 INPUT"<N)EW RUN OR <E)ND PROGRAM ".; 21 : IF2I="N"THENRUNELSE18888 

9999 PR I NT "TOO LITTLE DATA FOR SEASONALS. " 

18800 END 

20008 INPUTTURN ON YOUR PRINTER -- HIT ENTER ":■ 21 :CLS: RETURN 

25080 RESTORE : FORK=lTOL : READJ* : NEXTK : RETURN 

25188 DAT A JAN. , FEB. , MARCH, APRIL, MAY , JUNE , JULY . ;-;'/• SEPT. .. OCT. , NOV. , DEC. 

30080 I FD$= " Y " D*= "YEAR " 

30010 I FD$="Q"D*=" QUARTER" 

38020 I FD$= " M " D*= " MONT H " 

30030 IFD*= i! W"D*="WEEK" 

30035 IFDt="D"D*="DfiV" 

30048 RETURN 

40808 FOR J=iT0188 ; C$= I NKE V$ : I FC$= " " GOTO48020 

48010 NEXT J : RETURN 

^8028 C$= I NKE V$ : I FC* = " " THEN40O30ELSE40020 

48030 RETURN 
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Chi Square Analysis Program Listing 



100 CLS : PRINT : PRINTTAEKO); "C H I S Q U ft R E ft N ft L V S I S" :G*="#. ####" 

110 A*="#": PRINT: INPUT "HOW MANY ROWS IN CONTINGENCV TABLE Cl-8) ";NR 

120 B$= "#####": PR I NT -.INPUT "HOW MANY COLUMNS IN CONTINGENCV TftBLE <1~8> ";NC 

125 C*= "####. ## ,! :N1=NC:IFNC=1THENN1=2 

126 N2=NR: IFNR=1THENN2=2 

127 DF=<N1~1)*<N2-1) : IFDF=1THENCC=. 5 

136 PRINT: INPUT "EXPECTED FREQUENCIES CALCULATED BV - (C)OMPUTER OR (U)SER ";E$ 

140 PRINT :: INPUT "DISPLftV RESULTS ON LINE PRINTER - <V)ES OR (N)O ".; p* 

150 CLS: PR I NT "ENTER THE OBSERVED FREQUENCE FOR CELL:" 

160 FOR I =1T0NR : PR I NT : PR I NT " ROW " ; I 

170 FOR J=1T0NC : PR I NT " COLUMN " ; Z; : I NPUTO < I , J ) 

190 NEXT J : NEXT I : CLS : I FE*= " C " G0T0248 

200 PRINT"ENTER THE EXPECTED FREQUENCY FOR CELL:" 

210 FOR I =1T0NR : PR I NT : PR I NT " ROW " ; I 

220 FORJ-1TONC : PRINT" COLUMN" .; J; : INPUTEX I, J) 

230 IFE<LJX5PRINT"EXPECTED FREQUENCV IN LAST CELL WAS LESS THfiN 5. " 

240 NEXTJ-.NEXTI 

248 CLS: PR I NT "COMPUTER ftT WORK - PLEASE BE PATIENT" 

250 FORI=lTONR:FORJ=lTONC:RK I)=RT<I)+0<L J> :NEXTJ:T=T+RT<D : NEXT I 

260 FORI=lTONC:FOR.J=lTONR:CT'::i)=CT(I)+0<J, I) :NEXTJ:NEXTI : IFE$="U"GOTO280 

262 IFNR>1G0T0266 

263 F0RI=1T0NC:E<1, I)=T/NC: IFEQ, I K5THENL5=L5+1 

264 NEXTI:G0T0280 

266 IFNO1GOTO270 

267 FORI=lTONR : E( 1, 1)=T/NR : IFE< 1, 1K5THENL5=L5+1 

268 NEXTI:GOTO280 

270 FORI=lTONR : FORJ=lTONC : E( L J)=RT< I )*CT< J VT 

275 I FE ( L J ) <5THENL5=L5+1 

278 NEXTJ:NEXTI 

280 FORI=lTONR:FORJ=lTONC:CS=CS+<CKL ,T>-ECI, J)-CC)[2/E<L J> 

290 NEXTJ:NEXTI 

300 QT=CS/DF : IFQT=0QX=1 : G0T0398 

305 IFQT-C1G0T0315 

310 QS=DF : QR=1060 : QZ=QT : G0T0320 

315 0.5=1806 : QR=DF : 0.Z-1/QT 

320 QJ=2/9/QS : QK=2/9/QR 

325 QL=ABS<<1-QK)*QZ[ <i/3)~l+QJ)/SQR<QK*QZC <2/3)+QJ) 

338 IFQR<4G0T0345 

335 QX=. 5/<l+QL*<. 196854+QL*C 115194+QL* 1 -. 800344+GL*. 019527) )))[ 4 

340 G0T0358 

345 QL=QL*<1+. 08+QLC4/QRE3) :G0T0335 

350 F-QX: IFQT-C1F-1-QX 

398 CLS : I FP$="V" INPUT "TURN ON VOUR PRINTER - HIT ENTER ";Q*:CLS 

400 CLS : PRINT :PRINTTftB< 14 >.; "C H I S Q U ARE RES U L T S": PR INT 

410 PRINT" NUMBER OF ROWS IN CONTINGENCV TABLE = "; NR 

420 PRINT" NUMBER OF COLUMNS IN CONTINGENCV TABLE = "; NC 

430 PRINT" TOTAL NUMBER OF OBSERVATIONS (ALL CELLS) = ";T 

440 PRINT" NUMBER OF EXPECTED FREQUENCIES LESS THAN 5 = ";L5: PRINT 

450 PRINTTftEKiS).; "CHI SQUARE = ";CS 

460 PRINTTHEK15).; "DEGREES OF FREEDOM = ".; DF 

476 PRINTTfiEXiS); "PROBABILITY OF CHANCE = ":■ :PRINTUSINGG*.; P 
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Chi Square Analysis (continued) 

488 IFCC=. SPRINT: PR I NT" NOTE: YATES'' -CORRECTION FOR CONTINUITY WRS APPLIED. " 

490 I F ( PR=0 ) AND ( P$ = " V " > GOSUBIOOO 

500 PRINTH960, " (OBSERVED TABLE, (E)XPECTED TABLE, (C)HI SQUARE RESULTS ":■ :INPUTD* 

510 CLS: IFD*="C"GOTO400 

520 I FD$= " " THEN J$= " OBSERVED " : GOTO620 

530 IFD$="E"THENJ$="EXPECTED" :GOTO800 

540 GOTO500 

600 PR I NTTRB( 10).; "CONTINGENCY TABLE - ".; J$; " FREQUENCIES": PRINT 

605 PRINT" • >' 

610 F0RI=1T0NC:J=194+7*I:PRINT§J, "C"; :PRINTUSINGA$; I; : NEXT I : RETURN 
620 GOSUB600 : PRINT : F0RJ=1T0NR : PRINT" R"; : PRINTUSINGA*; J; : PRINT" ".; 
630 F0RK=1T0NC : PRINTUSINGB*; 0( J, K) ; : PRINT" "; : NEXTK : PRINT : NEXT J 

640 PRINT" " : GOTO500 

800 GOSUB600 : PR I NT : FOR J=1T0NR : PR I NT " R " ; : PR I NTUS I NGA$; J.; : PR I NT " " ; 
830 F0RK=1T0NC : PR I NTUS I NGC$; E < J, K ) ; : NEXTK : PR I NT : NEXT J 

840 PRINT" ■ ":GOTO500 

1000 GOSUB2200 : GOSUB2100 : GOSUB210O 

1010 LPRINTCHR*(29); TAB < 15); "C HI SQUARE RESULT S":GOSUB2100 

1020 LPRINT" ":LPRINT" NUMBER OF ROWS IN CONTINGENCY TABLE = ";NR 

1038 LPRINT" ": LPRINT" NUMBER OF COLUMNS IN CONTINGENCY TABLE = "; NC 

1040 LPRINT" ": LPRINT" TOTAL NUMBER OF OBSERVATIONS (ALL CELLS) = "; T 

1050 LPRINT" ": LPRINT" NUMBER OF EXPECTED FREQUENCIES LESS THAN 5 = ";L5 

1060 GOSUB2100:LPRINTTAB(15); "CHI SQUARE = ";CS 

1070 LPRINT" ":LPRINTTAB(15); "DEGREES OF FREEDOM = "; DF 

1080 LPRINT" ":LPRINTTAB(15); "PROBABILITY OF CHANCE = "; :LPRIHTUSINGGf; P 

1090 LPRINT" ": LPRINT" " : IFCC=. 5LPRINT" NOTE: YATES-' CORRECTION FOR CONTINUITY WAS APPLIED. " 

1100 IFCCO. 5LPRINT" " 

1110 J$= " OBSERVED " : LPR I NT " " 

1120 GOSUB2100 : LPR I NTTAB( 10); "CONTINGENCY TABLE - ";J$.;" FREQUENCIES" 

1130 LPRINT" » 

1140 FORI =1T0NC:LPRINTTAB (2+7*1); "C"; :LPRINTUSINGA$; I; : NEXT I : IFPR=999GOTO1200 
1150 PR=999: LPRINT" " :F0RJ=1T0NR: LPRINT" R"; :LPRINTUSINGA$; J; : LPRINT" ".; 
1160 F0RK=1T0NC:LPRINTUSINGB$.;0(J, K); : LPRINT" ".; : NEXTK: LPRINT" ":NEXTJ 

1170 LPRINT" " 

1180 LPR I NT " " : J$= " EXPECTED " : GOTO1120 

1200 LPR I NT " " : FOR J=1T0NR : LPR I NT " R " ; : LPR I NTUS I NGA$; J; : LPR I NT " " ; 

1210 F0RK=1T0NC : LPRINTUSINGC*; E( J, K); : NEXTK : LPRINT" " : NEXT J 

1220 LPRINT" » 

1225 K=(8-NR)*2 : IFK>0FORI=1TOK : LPRINT" " : NEXT I 

1230 GOSUB2100: LPRINT" " :GOSUB220O: GOT 0500 

2100 F0RL=1T03 : LPRI NT " " : NEXTL : RETURN 

2200 F0RL-1T013: LPR I NT "**++*"; : NEXTL: LPRINT" ": RETURN 
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Addendum 

The Analysis of Variance program contains an error which causes a 
"1 " to be printed in place of the total degrees of freedom in the 
summary table. All other displayed items, including the between 
group and within group degrees of freedom, are correct. 

To correct the error, lines 1050 and 10300 in the Analysis of 
Variance program must be changed as follows (see program listing 
on page 154): 

(Wrong) 1950 K=l : PR I NT " TOTAL " , CSNG < V2 > , K 

(Right) 1058 PRINT" TOTAL", CSNG <V2>, NT-1 

(Wrong) 10300 LPR I NT " " : K=l : LPR I NT " TOTAL " , CSNG < V2 > , K 

(Right) 10300 LPR I NT " " : LPR I NT " TOTAL " , CSNG < V2 > , NT-1 

The total degrees of freedom illustrated in the Sample Run (page 66) 
should have been 1 1 while the total degrees of freedom on the 
Sample Program Printout (page 126) should have been 20. 
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IMPORTANT NOTICE 

ALL RADIO SHACK COMPUTER PROGRAMS ARE LICENSED ON AN 
IS" BASIS WITHOUT WARRANTY. 
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Radio Shack shall have no liability or responsibility to customer or any other 
person or entity with respect to any liability, loss or damage caused or alleged 
to be caused directly or indirectly by computer equipment or programs sold by 
Radio Shack, including but not limited to any interruption of service, loss of 
business or anticipatory profits or consequential damages resulting from the 
use or operation of such computer or computer programs. 
NOTE: Good data processing procedure dictates that the user test the pro- 
gram, run and test sample sets of data, and run the system in parallel 
with the system previously in use for a period of time adequate to 
insure that results of operation of the computer or program are 
satisfactory. 



RADIO SHACK SOFTWARE LICENSE 

A. Radio Shack grants to CUSTOMER a non-exclusive, paid up license to use 
on CUSTOMER'S computer the Radio Shack computer software received. 
Title to the media on which the software is recorded (cassette and/or disk) or 
stored (ROM) is transferred to the CUSTOMER, but not title to the software. 

B. In consideration for this license, CUSTOMER shall not reproduce copies of 
Radio Shack software except to reproduce the number of copies required for 
use on CUSTOMER'S computer (if the software allows a backup copy to be 
made), and shall include Radio Shack's copyright notice on all copies of 
software reproduced in whole or in part. 

C. CUSTOMER may resell Radio Shack's system and applications software 
(modified or not, in whole or in part), provided CUSTOMER has purchased one 
copy of the software for each one resold. The provisions of this software 
License (paragraphs A, B, and C) shll also be applicable to third parties 
purchasing such software from CUSTOMER. 
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